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DECLARATION UNDER 37 C.F.R 1.131 

Dear Sir; 

Hassan Pirasteh and Jeffrey J, Sager, tbe inventors in the above-identified patent application 
(hereinafter, the Inventors), declare as follows: 

1 . The Bjomberg patent, U.S, 6,366,658, was granted (and became available to the public) on 
Apr. 2. 2002, and was filed on May 7, 1 998, A portion of this patent describes a 
telecommunications architecture for call center services using advanced interactive voice 
response service nodes that pass call destination information out of band to an interactive 
voice recognition (IVR) application. 

2. The Inventors filed a patent application covering their invention, as claimed in the above- 
identified patent application, on June 8 S 194)8. 

3. Prior to May 7, 1998, the Inventors conceived of and reduced their invention to practice. 

4. Prior to May 7, 1998, the Inventors documented a description of a 'Tort Sharing" 
infrastructure using a basic CTI components eventually described in the Patent Application. 
A copy of this documented description is attached to this Declaration. The attached pages 
are unaltered from their original form except that all dates have been masked. (2003 §L131 
Declaration - Exhibit A). 

5. Prior to May 7, 1 998, the Inventors were present at a meeting wherein a reduction to practice 
occurred of the precise integration point between the IVR and the CTI system where ANI f 
DNIS, and other potential data could be forwarded to the IVR before the voice connection 
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was routed by the PBX switch to the chosen IVR port- (2003 § U31 Declaration - 
Exhibit A). 

6. Prior to May 7, 1 998, the Inventors caused source code to be written incorporating the 
inventive interface described in the patent application. (2003 §1.131 Declaration - 
Exhibit A). 

7. Prior to May 7, 1998, the Inventors commissioned the drafting of a patent application 
covering their invention from the law firm of Standley and Gilchrist. 

8. Prior to May 7, 1998, the Inventors both prepared a draft specification and revised the draft 
specification for the benefit of the patent attorney. 

9. This draft specification includes draft claims that were eventually modified into the claims 
filed in the Inventors' patent application on June 8, 1998. 

1 0. The declarants state that all statements made herein of actual knowledge are true, or if made 
on information and belief are believed to be true. 

1 1 . The declarants further state that all statements made herein were made with knowledge that 
willful false statements and the like are punishable by fine or imprisonment, or both, under 
Section 1001 of Title 18 of the United States Code t and that any such willful false statements 
may jeopardize the validity of this application or any patent issuing thereon. 
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TAB 1 : Overview 
IVR Port Sharing 

In order to make the most efficient use of Conversant® ports, we have developed a 
method of dynamic port allocation based on DNIS (i.e. the incoming 800 number). 
In a normal installation like ours where the IVR voice channels are wired to the 
station side of the PBX switch, each IVR channel would have a single application 
program hard-assigned. Then these channels would be grouped into hunt-groups 
(from the PBX perspective) so that calls for each application would be routed to the 
hunt group for a specific client application. The channels in that hunt group could 
answer calls only for that client application and no other. This type of arrangement, 
while functional, is very inefficient because the number of channels assigned to a 
client's hunt group has to be large enough to handle the peak call volumes - during 
lower call volume periods, many of the channels go unused. A more efficient 
method of IVR channel use is to group all channels of an IVR box into one hunt 
group and then assign the client application dynamically, as the call arrives. This 
way, the channels are busy handling the mixed call volumes of many client projects 
and are available for any peak period of any project. We developed our own 
unique "port sharing" method in order to make maximum use of a limited IVR port 
resource. 

In order to do dynamic port allocation, the IVR must be made aware of the 
incoming number that was called (usually an 800 number) before the call is actually 
answered. Our "port sharing" method has the DNIS information passed to the IVR 
out-of-band (on a separate digital link) so that the IVR can allocate the correct 
application in a very short period of time (typically less than 500 milliseconds after 
the call arrives on the PBX switch). The basic data flow for port sharing is this: 

1. The Call arrives on the PBX. 

2. The PBX passes the DNIS and ANI information on to the telephony 
server. 

3. The server formats the information and sends it to a background process 
on the IVR. 

4. The background process determines that the message is meant for a port 
on this particular box and saves the DNIS and ANI data in memory. 

5. The call arrives at the IVR port. 

6. A special application that is always hard-assigned to every IVR port 
notices the port has an arriving call and asks the background process for 
the DNIS and ANI information. 

7. The special application looks the DNIS up in a table, determines the 
correct application and executes that application on the port. 
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Diagram of Port Sharing Solution using Nabnasset VESP Services 
1 
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Detailed Functional Description 

1 . A call arrives at the PBX switch. 

2. The switch follows the vector instructions and queues the caller to a Conversant ACD split. 

3. The PBX notifies the VESP TS server of a new call which is being directed to a monitored 
extension. 

4. The TS server requests that the VDU server create a new VDU and assign a unique VDU ID. 

5. The TS Server notified the VOX server that a call destined for a VRU port has arrived (the 
VOX is responsible for maintaining a state model of all VRU ports). 

6. The VOX server waits to see that the call arrives at the VRU port. 

7. The voice port of the Conversant box recognizes an incoming call either via ring current 
(analog ports) or Tl messaging (Line Side Tl ports). The Conversant automatically starts the 
application program assigned to every port called route_call. 

8. The route_call application takes the phone off-hook. 

9. The PBX informs the TS Server that the extension has gone off-hook. 

10. The TS Server informs the VOX server of the off-hook state change. 

1 1 . The VOX Server issues a Script. Qualify 1 method call to the Scripter Server. (This is 
translated internally to a scripter_custom_qualifyl() function call. The 
scripter_custom_qualify 1 () function is avaliable for development by the CTI development 
team in the customx source.) 

12. The Scripter maintains an internal table of all of the Conversant machines monitored by the 
VOX server. It creates an ISDN-formatted message that includes the ANI, DNIS, 
CALLEDEXTENSION, and AGENT EXTENSION information and passes this message on 
to all Conversants using a Remote Procedure Call (RPC). 

13. The remote procedure (to_d28()) is contained in a program running on the Conversant 
machines called CTIEar. The RPC facility is maintained in such a way that the TCP channel 
opened by the RPC is left open indefinitely to speed subsequent message passing. 

14. The CTIEar program receives the message and passes it onto a UNIX message queue that is 
monitored by a program called dip28_isdn. 

15. The dip28_isdn program receives the message from the message queue and determines if it is 
meant for this particular Conversant box by matching the AGENT_EXTENSION against a list 
of the extensions known to be wired to this Conversant. 

16. If the message was in fact meant for this Conversant box, the data is stored in memory for later 
retrieval. 

17. The route_call application requests the ISDN information from dip28_isdn using the get_ani 
External Function call. 

18. The dip28_isdn program returns the information to route_call. If the information has not yet 
arrived (a rare occurrence) the route_call application sleeps for a small time period and asks 
for the information again and eventually the information is passed. 

19. The route_call application parses the information and uses the DNIS value to perform an 
Oracle table lookup. 

20. Assuming the Oracle table (ROUTE_APPL) contains an entry for this DNIS, a field in the 
table contains the name of the application program associated with that DNIS and route_call 
executes that application. 

21. If any of this protocol breaks down, the route_call application is programmed to ask the caller 
to re-enter the 800 number they have dialed and it uses that response to search the 
ROUTE_APPL table via a different field. 
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TAB 2: Source Code 

File custom.c - User-customizable section ofNabnasset Scripter Server 

Line 124; A memory table is created to hold a list of all Conversants known to VESP along with their RPC 
handle. 

Line 263 and Line 1238: Upon Initialization, a list of Conversants is loaded into the memory table. 

Line 557: The scripter_custom_qualifyl service is called automatically for every telephone call destined for 
a Conversant port. The AM and DNIS information is formatted and sent to all known Conversants using 
RPC. 

File CTIEar.x - RPC definition for "to_d28Q" remote procedure 
File JCTlEar.c - Remote procedure implementation 

The CTIEar procedure runs on the Conversant boxes. It is called remotely from the VESP Scripter and 
receives the ISDN-formatted message. It passes this message on to the dip28_isdn process via message 
queues. 



File isdn.h - Defines for dip28Jsdn.c 



File dip28Jsdn.c - Conversant DIP process 

This DIP is responsible for parsing the ISDN-formatted message that was passed on via CTIEar. It 
determines if the message was meant for the Conversant box it is running on by comparing the extension of 
the port that is receiving the call with a list of the extensions wired to this Conversant box. If the message is 
meant for this box, the data is stored in memory for retrieval by the application programs. 

File route jcall - ScriptBuilder application program assigned to all shared 
Conversant ports 

The route_call program is assigned to all shared Conversant ports. When a call arrives, route_call asks 
dip28_isdn for the ISDN information. The DNIS is parsed and a table lookup is made. If the DNIS is 
found in the table, the appropriate user application is started. If the DNIS is not found, the caller is asked to 
enter the 800 number they have just dialed and a second search is done. 



File get_anLt- External Function used by routejcall 
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2 /***************************************************************^ 

2 * Copyright (c) AT&T Solutions Customer Care 

3 * All rights Reserved 

4 ********************* **************************************** 

5 * 

6 * File: custom. c 

7 * Type: ASAI 

8 * ML INK 

9 * 

10 * Description: 

11 * This custom. c file implements the VESP Scripter for the ATTS-CC Call Centers. 

12 * It borrows heavily from the Nabnasset example Scripter for a fictional 

13 * call center at the Fourth National Bank of Acton. This version of custom. c 

14 * will operate with both the ASAI Telephony Server for Lucent Definity 

15 * switch, and the Meridian Link Telephony Server for Nortel. One single 

16 * definition differs for the two switches, and is determined by a single 

17 * #ifdef at the top of this file. 

18 * 

19 * Revision History: 



2 0 * Date Who Rev Comments 

21 * =========================================================================== 

22 * ^^^^^M JMeyers 1.0.0 Created 

23 * ^^^^^1 JSager 1.0.1 Made into ATTS-CC version. I'm of a mind right 

24 * now to leave in all of Jim's Bank example for 

25 * future reference. 

26 * ^l^^^l JSager 1.0.2 Port Sharing: Utilize Scripter_custom_qualifyl to 

27 * alert Conversants of incoming call. Take out 
2 8 * trans2 routines that attempted to control VRU 

2 9 * ports - Nabnasset won't let us control ports 

3 0 * for which TS doesn't know split number. 

31 * JSager 1.0.3 Tidy up the incoming-call section to handle 

32 * route requests that really aren't requesting 

33 * a route-to destination. 

34 * ^^^^^H JSager 1.1.0 Add FedEx route request handling and tr2 trans 
3 5 * for Vantive Interface. 

36 * JSager 1.1.1 Redefine Dnis Table parsing for our 

37 * multi-customer/multi-call-center environment. 
3 8 * The _dnisEnglish table now has the following 

3 9 * format: 

4 0 * Client : CallCenter : PrimaryRoute : SecondaryRoute : Description 
41 * 



42 *****************************************************************************/ 

43 #include <stdio.h> 

44 #include <time.h> 

45 #include <ctype.h> 
46 

47 ftinclude <orb.h> 

48 ttinclude "script. h" 
49 

5 0 /* Added for RPC to Conversant */ 

51 typedef u_long u_int32; 

52 #include <rpc/rpc.h> 

53 #include "cvis_intf c/CTIEar . h" 
54 

55 /* The Meridian Link TS does not send "dnis" as a couple with the incoming call 

56 * event unless the CDN that generated the route request was a DNIS CDN. For 

57 * this example, we assume a different CDN is used for every call purpose, so 

58 * the CDN is the number we want to look up in the "DNIS " table. The CDN 

59 * always appears as "dest" in the incoming call event. 

60 */ 
61 
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62 #ifdef MERIDIAN 

63 ftdefine DNIS_COUPLE_NAME "dest" 

64 #else 

65 #define DNIS_COUPLE_NAME "dnis" 

66 #endif 
67 

68 /* 

69 * Global variables. 

70 */ 
71 

72 char Empty_String [] = " " ; /* Default for extensions */ 

73 char *version = "ATTS-CC Scripter 1.1.1"; 
74 

75 /* "From" enumeration for how a call entered the Scripter */ 

76 typedef enum { 

77 FR_UN KNOWN = 0, 

78 FR_INCOMING, 

7 9 FR_TRANSACTION 
80 } FromEnum; 

81 

82 /* Enumeration for Clients */ 

83 typedef enum { 

84 UNKNOWN = 0, 

85 FEDEXN , 

8 6 GE_TPC 

8 7 } ClientEnum; 
88 

89 /* Matching text strings to store in VDU */ 

90 char *ClientText [ ] = { 

91 "Unknown", 

92 "FedEx NEXUS", 

93 "GE TPC" 

94 }; 
95 

96 /* This structure holds data associated with a particular DNIS */ 

97 typedef struct Dnis_Data { 

98 char dnis [33] ; /* DNIS */ 

99 ClientEnum client; /* Which client owns the call */ 

100 char cc_location [4] ; /* Call Center Location designation */ 

101 char prim_dnis_route [6] ; /* Primary routing */ 

102 char sec_dnis_route [6] ; /* Secondary routing */ 

103 char dnis_desc [65] ; /* Description of this DNIS (64 chars) */ 

104 } Dnis_Data; 

105 Dnis_Data *dnis_table = NULL; 

106 int num_dnis_table =0; /* Number of entries in dnis_tbl */ 
107 

108 /* 

109 * Instance data for Vesp_Re quest ( ) calls. 

110 */ 

111 typedef struct Callback_Data { 

112 char vdu_id[33] ; 

113 char ani [11] ; 

114 FromEnum from; /* How did call get here? INCOMING or TRANSACTION? */ 

115 ClientEnum client; /* Which client owns call */ 

116 char prim_route [6] ,* /* Primary Routing extension */ 

117 char sec_route [6] ; /* Secondary Routing extension */ 

118 SeqCouple *vdu_data; /* Data eventually bound for VDU. SetValues */ 

119 Request request; /* Handle for sending deferred requests */ 

120 SeqCouple *tr2_result ; /* Handle to output argument of tr2 transaction */ 

121 char dnis_desc [65] ; 

122 } CallbackJData; 
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123 

124 /* 

125 * List of Conversant names. Used by qualifyl routine to pass ANI and DNIS 

126 * to all Conversants in this list. This list is filled in at start-up. 

127 */ 

128 typedef struct Cvis__List { 

129 char cvis [64] ; 

130 CLIENT * handle; 

131 } Cvis_List; 

132 Cvis_List *cvis_table = NULL; 

133 int NumCvisList = 0; 
134 

135 /* Prototypes for custom-defined transaction functions */ 

136 void tr2_MeterLookUp (Object object, Environment *ev, VDU_ID vduid, 

137 _IDL_SEQUENCE_string *arglist, 

138 _IDL_SEQUENCE_Couple *resultlist) ; 

139 void tr2_AccountLookUp (Object object, Environment *ev, VDU_ID vduid, 

140 _IDL_SEQUENCE_string *arglist, 

141 _IDL_SEQUENCE_Couple *resultlist) ; 

142 void tr2_ContactLookUp (Object object, Environment *ev, VDU_ID vduid, 

143 _IDL_SEQUENCE_string *arglist, 

144 _IDL_SEQUENCE_Couple *resultlist) ; 
145 

146 /* Prototypes for functions that respond to CORBA events */ 

147 ULONG Scripter__custom_incomingcall_event (Scripter_Data *scripter_data, 
14 8 SeqCouple *data) ; 

14 9 ULONG Scripter_custom_disconnect_event ( Script er_Data *scripter_data, 

150 SeqCouple *data) ; 

151 ULONG Scripter_custom_server_term_event (Scripter_Data *scripter_data , 

152 SeqCouple *eventinf o) ; 

153 ULONG Scripter_custom_other_event (Scripter_Data *scripter_data, char *name, 

154 SeqCouple *data) ; 
155 

156 /* Prototypes for functions that respond to other things */ 

157 void Scripter_custom_update (void) ; 

158 ORBStatus Scripter_custom_poll (void) ; 

15 9 void Scripter_custom_exit (void) ; 

160 void Scripter_custom_exception (void) ; 

161 void Scripter__custom_qualifyl (Object object, 

162 Environment *ev, 

163 VDU_ID vduid, 

164 _IDL_SEQUENCE_Couple *arglist, 

165 _IDL_SEQUENCE_Couple *resultlist) ; 
166 

167 /* Prototypes for callback functions */ 

168 ULONG cb_VDUSetV_Route_Prim (Identifier interface, ORBStatus status, 

169 Environment *ev, long user_data, Session session, 

170 char *vdu_id, SeqCouple *data) ; 
171 

172 ULONG cb_VDUSetV_ANILookUp (Identifier interface, ORBStatus status, 

173 Environment *ev, long user_data, Session session, 

174 char *vdu_id, SeqCouple *data) ; 
175 

176 ULONG TS_Route_callback ( Identifier interface, ORBStatus status, 

177 Environment *ev, long user_data, Session session, 

178 char *vdu_id, char *ext) ; 
179 

180 ULONG cb_TSRoute_rmCB ( Identifier interface, ORBStatus status, 

181 Environment *ev, long user_data, Session session, 

182 char *vdu_id, char *ext) ; 
183 
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184 ULONG VDU_Terminate_callback( Identifier interface, ORBStatus status, 

185 Environment *ev, long user_data, Session session, 

186 char *vdu_id) ; 
187 

188 ULONG FEDEX_LookUp_callback (Identifier interface, 

189 ORBStatus status, Environment *ev, long user_data, 

190 Session session, char *vdu_id, char *data) ; 
191 

192 ULONG FEDEX_ANILookUp_callback (Identifier interface, 

193 ORBStatus status , Environment *ev, long user_data, 

194 Session session, char *vdu_id, char *data) ; 
195 

196 /* Prototypes for miscellaneous functions */ 

197 void parse_dnis_data (Dnis_Data **dnis_table , int *num_dnis_table) / 

198 void parse_cvis_data (Cvis_List **cvis_table , int *numcvislist ) ; 

199 ORBStatus parse__conf ig ^parameters (void) ; 

200 Couple *find_couple (SeqCouple *seqcpl, char *name) / 
201 

202 
203 

204 /**************************************^ 

205 Function: Scripter_custom_init 
206 

207 Description: 

208 This function runs automatically when the scripter is initialized. It 

209 performs function registrations and initialization tasks. 
210 

211 Arguments : 

212 Object object: Object pointer for this server 
213 

214 Returns : 

215 VESP_SUCCESS 

216 **************************************** 

217 extern ULONG Scripter_custom_init (Object object) 

218 { 



219 /* This is where we register function names to be called when 

220 * various things occur: 

221 */ 
222 

223 /* Functions to respond to events from the TS */ 

224 Script_register_custom_incomingcall (Scripter_custom_incomingcall_event ) ; 

225 Script_register_custom_disconnect (Scripter_custom_disconnect_event ) ; 

226 Script_register_custom_server__term (Scripter_custom_server_term_event ) / 
227 

228 /* Function to respond to other events */ 

22 9 Script__register_custom_other (Scripter_custom_other_event ) ; 
230 

231 /* Function to execute when Script .GenericUpdate method is invoked 

232 * ("Update Server" button clicked in ManCon) 

233 */ 

234 Script_register_custom_update (Scripter_custom_update) ; 
235 

236 /* Function to call once each time through the VESP poll loop */ 

237 Script_register_custom_j?oll (Scripter_custom_jDoll ) ; 
238 

239 /* Functions to call when exiting or crashing */ 

240 Script_register___custom_exit (Scripter_custom_exit ) ; 

241 Script_register_custom_exception (Scripter_custom_exception) ; 
242 

243 /* Register a Qualifyl function */ 

244 Script_register_custom_qualifyl (Scripter_custom_qualifyl) ; 



Redacted 



customx 



245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 



/* This version number overwrites the "base" Scripter version */ 
vesp_set_server_version (version) ; 



/* 

* Download list of Conversants known to this VESP environment 
*/ 

parse_cvis_data (&cvis_table, &NumCvisList ) ; 



parse_conf igj>arameters () ; 



/* Download the DNIS table from the DS and parse it into an 
* array of structures. 
*/ 

parse_dnis_data (&dnis_table, &num_dnis_table) ; 



/* Register the users custom transaction functions */ 
Script_register_trans2_routine ( "MeterLookUp" , tr2_Meter Lookup) ; 
Script_register_trans2_routine ( "Ac count Lookup" , tr2_Ac count Lookup) ; 
Script_register_trans2_routine ( "ContactLookUp" , tr2_Cont act Lookup) ; 



return (VESP SUCCESS) ; 



/* One-time initialization tasks to perform when the scripter 
* comes up: 
*/ 



271 } 



272 
273 



274 /********************** Event Handling Functions ***************************/ 
275 



277 Function : Scripter_custom_incomingcall_event 
278 

279 Description: 

280 This function runs automatically when the scripter receives an incoming call 

281 event from the TS (TS . IncomingCall . event) . 
282 

2 83 Arguments: 

284 Scripter_Data *scripter_data : This structure is passed to maintain source 

285 code compatibility for all switches. The only useful data it contains 

286 in the ASAI and Meridian Link Scripters is a valid session to use in 

287 calls to Vesp_Request () . 
288 

289 Note: In the case of the ASAI and Meridian Link Scripters, this structure 

2 90 contains NO PERSISTENT DATA, even though the structure definition in 

291 script. h implies that it might. This structure is persistent through the 

292 life of the call ONLY for the Aspect version of the Scripter; no such 

293 persistence exists for the ASAI and Meridian Link versions! When 

294 Scripter_custom_incomingcall_event ( ) is through, the structure is gone. 
2 95 Do not pass pointers to it to Vesp_Request callback functions! 

296 

2 97 SeqCouple *eventinfo: Sequence of couples passed by the TS with the event. 
298 Contains members such as ani, dnis, dest, orig, etc. 

299 

3 00 Returns: 

3 01 VESP_SUCCESS 

302 *********************************************************** 

303 ULONG Scripter_custom_incomingcall_event ( 

304 Scripter_Data *scripter_data, 

305 SeqCouple *eventinfo) 
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307 Callback_Data *callback_data; 

308 char *ani, *dnis, *vdu_id, *cc_loc; 

309 int i; 
310 

311 /* Allocate a callback structure. This structure will continue through 

312 * all asynchronous calls (Vesp_Request ) until the call is finally 

313 * routed. It will be freed at that time. 

314 */ 

315 callback_data = vesp_calloc (1, sizeof (Callback_Data) ) ; 
316 

317 /* Now create a sequence of couples to start loading VDU data into. 

318 * Eventually we will call VDU. SetValues , but we keep a running 

319 * list until that time. The list is part of the callback_data 

320 * structure in case we have to call some other method meanwhile. 

321 */ 

322 callback_data->vdu_data = vesp_couple_seq_create ( ) ; 
323 

324 /* Extract useful members from the event for easy access */ 

325 vesp_dup_seq_couple_value (eventinfo, "ani" , &ani) ,* 

326 vesp_dup_seq_couple_value (eventinfo, DNIS_COUPLE_NAME , &dnis) ; 

327 vesp_dup_seq_couple_value (eventinfo, "vdu_id", &vdu_id) ; 
328 

329 /* Fill the callback structure with any data we know so far */ 

330 strcpy (callback_data- >vdu_id, vdu_id) ; 

331 callback_data->from = FR_INCOMING; /* Tag the starting point */ 
332 

333 /* Initialize the dnis-related data with valid defaults */ 

334 callback_data->client = UNKNOWN / 

335 strcpy (callback_data- >prim__route , Empty_String) ; 

336 strcpy (callback_data- >sec_route , Empty_String) ; 

337 strcpy (callbackjiata- >dnis_desc , "Non-Adjunct -Routed DNIS") ; 
338 

339 /* Search the dnis table for this call's dnis . Overwrite the 

340 * default data in the callback structure if it is found. 

341 */ 

342 for (i = 0; i < num_dnis_table; i++) 

343 { 

344 if (Istrcmp (dnis, dnis_t able [i] . dnis) ) 

345 { 

346- callback_data->client = dnis_table [i] . client ; 

347 strcpy (callback_data->prim_route, dnis_table [i] .prim_dnis_route) ; 

348 strcpy (callback_data->sec_route, dnis_table [i] . sec_dnis_route) ; 

349 strcpy (callback_data->dnis_desc # dnis_table [i] . dnis_desc) ; 

350 cc_loc = dnis_table [i] . cc_location; 
3 51 break; 

352 } 

353 } 
354 

355 /* Add a few items to the vdu data for writing the VDU later */ 

356 vesp_couple_seq_add_couple_values (callback_data->vdu_data, 

357 "Client" , ClientText [callback_data- >client] ) ; 

3 58 vesp_couple_seq_add_couple_values (callback_data->vdu_data, 

359 M dnis_desc", callback_data->dnis_desc) ; 

360 vesp_couple_seq_add_couple_values (callback_data->vdu_data, 

361 n call_ctr", cc_loc) ; 
362 

363 /* Branch here based on Client who owns this DNIS */ 

364 switch (callback_data->client) 

365 { 
366 
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367 /* Client is unknown */ 

368 case UNKNOWN : 
369 

370 /* 

371 * We probably got here because DNIS was not in the dnis_table. 

372 * This is not necessarily an error, it could be that they 

373 * just wanted collected digits to show up in the VDU. We will 

374 * populate the VDU with default data and tell the switch to 

375 * route to the default VDN (Should be NULL which means to try the 

376 * next vector step) 

377 */ 
378 

379 /* Write data to the VDU. The specified callback function 

380 * will route the call afterwards. 

381 */ 

382 Vesp_Request ( "VDU. SetValues" , cb__VDUSetV_Route_Prim, 
3 83 (ULONG) callback_data, scripter_data- >session, 

3 84 callback_data->vdu_id, callback_data- >vdu_data) ; 

3 85 break; 

386 

387 /* Client is GE TPC */ 

38 8 case GE_TPC: 

389 /* 

390 * We don't actually do any adjunct routing for GE TPC currently, 

391 * so we'll just update the VDU and route the call to the 

392 * Default VDN (NULL - which will cause the vector to move on 

393 * to the next step) . 

394 */ 

3 95 Vesp_Request ( "VDU. SetValues " , cb_VDUSetV_Route_Prim / 

3 96 (ULONG) callback_data , scripter_data->session, 
397 callback_data->vdu_id, callback_data- >vdu_data) ; 
398 

399 break; 
400 

4 01 /* Client is FedEx NEXUS */ 
4 02 case FEDEXN : 

403 /* Set some default values in the VDU then do an ANI lookup */ 

404 /* ^^^^^ 

4 05 * NOTE: i^^^Hi " f° r now we are not doing the ANI lookup. 

4 06 * Some code has been commented out below for this change. See 

4 07 * further comments below. 

408 */ 

409 strncpy (callback_data->ani / ani, 10); 

410 vesp_couple_seq_add_couple_values (callback_data->vdu_data, 

411 "UANI", ani); 

412 vesp_couple_seq_add_couple_values (callback_data- >vdu_data, 

413 "UAPP", "VANTIVE" ) ; 

414 vesp_couple_seq_add_couple_values (callback_data- >vdu_data, 

415 " CALLORIG IN " , " NEXUS " ) ; 
416 

417 /* ^^^^^ 

418 * NOTE CONTINUED: " 

419 * When we're ready to do the ANI lookup, uncomment the next two 
42 0 * vesp_couple_seq_add_couple_values and the Vesp_Request with a 

421 * callback to cb_VDUSetV_ANI Lookup and then delete the 

422 * Vesp_Request with the callback to cb_VDUSetV_Route_Prim. 

423 */ 

424 /* vesp_couple_seq_add_couple_values (callback_data- >vdu_data, */ 

425 /* "OBJECTNAME" , Empty_String) ; */ 

426 /* vesp_couple_seq_add_couple_values (callback_data->vdu_data, */ 

427 /* "OBJECTNUM", Empty_String) ; */ 
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428 

429 /* Vesp_Request { "VDU. SetValues " , cb_VDUSetV_ANILookUp, */ 

430 /* (ULONG) callback_data , scripter_data->session, */ 

431 /* callback_data->vdu_id, callback_data->vdu_data) ; */ 
432 

433 Vesp_Request ( "VDU. SetValues » , cb_VDUSetV_Route_Prim, 

434 (ULONG) callback_data , scripter_data- >session, 

435 callback_data->vdu_id, callback_data->vdu_data) ; 
436 

4 37 break; 
438 

439 default: 

440 break; 
441 

442 } /* End switch (callback_data->dnis_data . client) */ 

443 

444 /* Free memory allocated by vesp_dup_seq_couple_value ( ) */ 

445 vesp_f ree (ani) ; 

446 vesp_free (dnis) ; 

447 vesp_f ree (vdu_id) ; 
448 

44 9 return (VESP_SUCCESS) ; 

450 } 

451 

452 

453 /* Call has disconnected. This event will be delivered by the Aspect 

454 * CallCenter version of the VESP Telephony Server, but not by the 

455 * Lucent Definity or Nortel Meridian Link versions. 

456 */ 

457 ULONG Scripter_custom_disconnect_event (Scripter_Data * scripterjiata, 

458 SeqCouple *eventinfo) 

459 { 

460 return (VESP_SUCCESS) ; 

461 } 
462 
463 

464 /* The TS has failed or exited. The Scripter will automatically try to 
4 65 * reassign to the TS (repeatedly) , and generally that will bring the TS 

466 * back up. Any additional custom code for this event would go here. 

467 */ 

468 extern ULONG Scripter_custom_server_term_event (Scripter_Data *scripter_data, 

469 SeqCouple *eventinfo) 

470 { 

471 log_unparsable ("Dectected TS failure!!!"); 

472 return (VESP_SUCCESS) ; 

473 } 
474 
475 

476 /* Some "other" event has been received. If the Scripter assigns to some 

477 * custom server to receive events, this function will be executed when 

478 * events are received. TS.SendData events (Aspect switch only) also 

479 * cause this function to be called. Parse the "name" argument to 

480 * determine what event occurred. 

481 */ 

482 ULONG Scripter_custom_other_event (Scripter_Data *scripter_data, char *name, 
4 83 SeqCouple *eventinfo) 

484 { 

485 log_unparsable ("Unexpected event received: %s" / name) ; 

486 return (VESP_SUCCESS) ; 

487 } 
488 
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489 

490 /* The GenericUpdate method has been invoked. This generally means an 

491 * administrator selected the Scripter from ManCon and clicked on the 

492 * "Update Server" button. 

493 */ 

4 94 void Scrip ter_custom_update () 
495 { 



4 96 /* Reload the DNIS table from the DS and parse it into an 

497 * array of structures. Free the old one first. 

498 */ 

4 99 vesp_free (dnis_table) ; 

500 parse_dnis_data (&dnis_table , &num_dnis_table) ; 
501 

502 /* 

503 * Download list of Conversants known to this VESP environment 

504 */ 

505 vesp_free (cvis_table) ; 

506 parse_cvis_data (&cvis_table , &NumCvisList ) ; 
507 

508 log_unparsable ("Scripter has been updated"); 



509 } 
510 
511 

512 /* This function is called automatically once every time through the main 

513 * VESP polling loop. Put any periodic functionality here. 

514 */ 

515 #define T I ME CHE CK_ INTERVAL (5*60) /* Every five minutes */ 
516 

517 ULONG Scripter_custom_j>oll () 

518 { 



519 static time_t last_time_check =0; /* Last time */ 

52 0 time_t now; 
521 

522 /* Check the local time. If T I ME CHE CK_ INTERVAL has passed, log 

523 * a quick message to the log file. 

524 */ 

52 5 now = time (NULL) ; 

52 6 if (now > last_time_check + TIMECHECK_INTERVAL) { 

527 vesp_log_info(VESP_CAT_ALL, "HEARTBEAT", "TEST"); 

528 log_unparsable ( "Heap Size=%ld" , vesp_get_heap_size ( ) ) ; 

52 9 vesp_heap_check () ; 

53 0 last_time_check = now; 
531 } 

532 

53 3 return (VESP SUCCESS) ; 



534 } 

535 

536 

537 /* The Scripter is exiting normally. This generally means an administrator 
53 8 * selected the Scripter from ManCon and clicked on the "Stop Server" 

53 9 * button. Put any cleanup code here. 

540 */ 

541 void Scripter_custom_exit () 

542 { 

543 log__unparsable ("Scripter is exiting normally"); 

544 } 
545 
546 

54 7 /* The Scripter is exiting abnormally. This could indicate a segment 
54 8 * violation, a "kill" executed from the command line, or other system 
54 9 * problem. Put any cleanup code here. 
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550 */ 

551 void Scripter_custom_exception () 

552 { 

553 log_unparsable ("Scripter is exiting with an exception"); 

554 } 
555 
556 

557 /* The method Script . Qualifyl has been invoked, presumably by the VOX server. 

558 * When the switch sends calls straight to the VRU without a VESP route 

559 * request (SOP at ATTS-CC) , we can start call qualification in this function. 

560 * We do Conversant port-sharing here by sending dnis and ani data to the 

561 * monitored Conversants via an RPC pipe. 

562 */ 

563 void Scripter_custom_qualifyl (Object object, 



564 Environment *ev, 

565 VDU__ID vduid, 

566 _IDL_SEQUENCE_Couple *arglist, 

567 _I DL_S EQUENCE_Coup le *resultlist) 

568 { 

569 char *ani, *dnis, *dest, *called, *orig; 

570 char *loc_ani, *loc_dnis; /* Might need to change values of dnis and ani.*/ 

571 /* Using non-vesp variables allows us to still */ 

572 /* free the original memory space allocated by */ 

573 /* the toolkit. */ 

574 char *cvis; 

575 CLIENT *cl; 

576 int *rc; 

577 char *strj?tr, isdn_string [41] ; 

578 int ani_type, ani_len, cnt; 
579 

580 /* Collect data that would be useful for Conversant Port Sharing */ 

581 vesp_dup_seq_couple_value (arglist , "ani", &ani) ; 

582 vesp_dup_seq_couple_value (arglist , "dnis", &dnis) ; 

583 vesp_dup_seq_couple_value (arglist , "dest", &dest) ; 

584 vesp_dup_seq_couple_value (arglist , "called", &called) ; 

585 vesp_dup_seq_couple_value (arglist , "orig" , fcorig) ; 
586 

587 /* 

588 * Filter that data. Sometimes, when called from within PBX we get 

589 * no dnis so we'll use the originating number instead. Also, we 

590 * don't get inforation about the "ani type" (inside extension, trunk 

591 * group, or real ANI) so we just try to figure it out as best we can. 

592 */ 

593 if (strlen(dnis) == 0) 

594 loc_dnis=called; 

595 else 

596 loc_dnis=dnis ; 

597 ani_len=strlen (ani) ; 

598 if (ani_len == 0) { 

5 99 ani_type=l; 

600 loc_ani=orig; 

601 } 

602 else if (ani_len == 5 | | ani_len =- 4) { 

603 ani_type=l; 

604 loc_ani=ani; 

605 } 

606 else if (ani_len == 3 | | ani_len == 2 | | ani_len == 1) { 

607 ani_type=2 ; 

6 08 loc_ani=ani; 

609 } 

610 else { 



Redacted 



customx 



611 ani_type=9; 

612 loc_ani=ani; 

613 } 
614 

615 /* Set up data string to look like original IG gateway string */ 

616 sprintf (isdn_string, "A0000000001%5s%ld%10sl%5sl%5s » , dest, ani_type, 

617 loc_ani, called, loc_dnis) ; 

618 str_ptr=isdn_string; 
619 

620 /* 

621 * Find names and RPC handles of Conversants to send to in Cvis_List. 

622 */ 

623 for(cnt=0 ; cnt < NumCvisList ; cnt++) 

624 { 

625 cvis=cvis_table [cnt] .cvis; 

626 cl=cvis_table [cnt] .handle; 
627 

628 vesp_log_info(VESP_CAT_ALL, "VESP_TO_CVIS " , cvis) ; 

629 log_unparsable ( "ISDN String= ' %s ' " , isdn_string) ; 
630 

631 if (cl == NULL) { 

632 /* 

633 * We have not opened a channel to this cvis yet. 

634 */ 

635 vesp_log_info (VESP_CAT_ALL, n OPEN_RPC_CHANNEL" , cvis) ; 

636 cl=clnt_create (cvis, CTIEARPROG, CT I EAR VERS , "tcp"); 

637 if (cl == NULL) { 

638 vesp_log_info (VESP_CAT_ALL, " RPC_CREATE_ERROR " , cvis) ; 

63 9 log_unpar sable (clnt_spcreateerror (cvis) ) ; 

640 log_unpar sable ( "CTIEar may not be running on %s" , cvis); 

641 continue; 

642 } 

643 cvis_table [cnt] .handle=cl; /* Remember this handle */ 

644 } 
645 

646 /* Call the remote procedure that passes string on to DIP28 */ 

647 rc=to_d2 8_l (&str_ptr, cl) ; 

648 if (rc == NULL | | *rc != 0) { 

64 9 /****★*★**★********************** ***** 

650 * There is room for improvement here. 

651 * If we discover that the once-open 

652 * channel to this cvis is now closed, 

653 * we currently mark it that way in 

654 * our table, but we don't try to 

655 * re-open it and send again. This 

656 * results in a lost message. We will 

657 * open a new one with the "next" 

658 * message. 

559 *************************************/ 

660 clnt_destroy (cl) ; 

661 vesp_log_inf o (VESP_CAT_ALL, "RPC_WRITE_ERROR" , cvis) ; 

662 log_unparsable ( "Destroy old channel to %s",cvis); 

663 cvis_table [cnt] . handle=NULL; 

664 } 
665 

666 } /* for all entries in the cvis_list table */ 

667 

668 vesp_f ree (ani) ; 

669 vesp_f ree (dnis) ; 

670 vesp_f ree (dest) ; 

671 vesp_f ree (called) ; 
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672 vesp_f ree (orig) ; 

673 } 
674 
675 

676 /********★*********** custom transaction functions *************************/ 
677 

678 /* 

679 * One of the Fe dEx- NEXUS/ Van tive interface transactions. This transaction 

680 * is used for Meter number lookups in the Vantive databse. The request is 

681 * forwarded to the FEDEX Server for processing. 

682 */ 

683 void tr2_MeterLookUp (Object object, Environment *ev, VDU_ID vduid, 



684 _IDL_S EQUENCE_s t r ing *arglist, 

685 _IDL_S EQUENCE_Coup 1 e * resultlist) 

686 { 

687 Environment local_ev ; 

688 Callback_Data *callback_data; 

689 char meter_num [41] ; 
690 

691 /* Get Meter Number from Conversant */ 

692 strncpy (meter_num, arglist->_buf fer [0] , sizeof (meter_num) -1) ; 
693 

694 /* If Conversant failed to send us a meter number, let's just short 

695 * circuit it right here. 

696 */ 

697 if (strlen (meter_num) < 1) 

698 { 

699 vesp_log_info (VESP_CAT_ALL, "Error", "Bad Input to tr2_MeterLookUp" ) ; 
7 00 return; 

701 } 
702 

703 callback_data = vesp_calloc (1, sizeof (Callback_Data) ) ; 

704 

705 callback_data->request = Object_duplicate (ev- >request , &local_ev) ; 

706 Request_def er (ev->request , ev) ; 
707 

708 /* 

709 * In case we have a result to send back later... 

710 */ 

711 callback_data->tr2_result = resultlist; 
712 

713 Vesp_Request ( " FEDEX . Me terLookUp " , FEDEX_LookUp_callback, 

714 (ULONG) callback_data, ev->session, 

715 vduid, meter_num) ; 
716 

717 return; 

718 } 
719 



720 /* 

721 * One of the FedEx -NEXUS /Vantive interface transactions. This transaction 

722 * is for Account number lookups in the Vantive database. The request is 

723 * forwarded to the FEDEX Server for processing. 

724 */ 

725 void tr2_AccountLookUp (Object object, Environment *ev, VDU_ID vduid, 



726 _IDL_SEQUENCE_string *arglist, 

727 _IDL_SEQUENCE_Couple * resultlist) 

728 { 

72 9 Environment local_ev; 

730 Callback_Data *callback_data; 

731 char acct_num[20] ; 
732 
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733 /* Get Account Number from Conversant */ 

734 strncpy (acct_num, arglist- >_buf f er [0] , sizeof (acct__num) -1) ; 
735 

736 /* If Conversant failed to send us a meter number, let's just short 

737 * circuit it right here. 

738 */ 

739 if (strlen (acct_num) < 1) 

740 { 

741 vesp_log_info (VESP_CAT_ALL, "Error", "Bad Input to tr2_AccountLookUp" ) ; 

742 return; 

743 } 
744 

745 callback_data = vesp_calloc (1, sizeof (Callback_Data) ) ; 
746 

747 callback_data->request = Object_duplicate (ev->request , &local_ev) ; 

74 8 Request_def er (ev- >request , ev) ; 

749 

750 /* 

751 * In case we have a result to send back later... 

752 */ 

753 callback_data->tr2_result = resultlist; 
754 

755 Vesp_Request ( "FEDEX. AccountLookUp" , FEDEX_LookUp_callback, 

756 (ULONG) callback_data, ev->session, 

757 vduid, acct_num) ; 
758 

759 return; 



760 } 
761 

762 /* 

763 * One of the FedEx-NEXUS/Vantive interface transactions. This transaction 

764 * is for Contact number lookups in the Vantive database. The request is 

765 * forwarded to the FEDEX Server for processing. 

766 */ 

767 void tr2_ContactLookUp (Object object, Environment *ev, VDU_ID vduid, 



768 _IDL_SEQUENCE_string *arglist, 

769 _IDL_SEQUENCE_Couple *resultlist) 

770 { 

771 Environment local_ev; 

772 Callback_Data *callback_data; 

773 char cont_num [21] ; 
774 

775 /* Get Account Number from Conversant */ 

776 strncpy (cont_num, arglist- >_buf f er [0] , sizeof (cont_num) -1) ; 
777 

778 /* If Conversant failed to send us a meter number, let's just short 

779 * circuit it right here. 

780 */ 

781 if (strlen (cont_num) < 1) 

782 { 

783 vesp_log_info(VESP_CAT_ALL, "Error", "Bad Input to tr2_ContactLookUp" ) ; 

784 return; 

785 } 
786 

787 callback_data = vesp_calloc (1, sizeof (Callback_Data) ) ; 

788 

789 callback_data->request = Object_duplicate (ev->request , &local__ev) ; 

790 Request_def er (ev->request , ev) ; 
791 

792 /* 

793 * In case we have a result to send back later. . . 
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794 */ 

795 callback_data->tr2__result = resultlist; 
796 

797 Vesp_Request ( "FEDEX . Contact Lookup " , FEDEX__LookUp_callback, 

798 (ULONG) callback_data , ev->session, 

799 vduid, cont_num) ; 
800 

801 return; 



802 } 
803 
804 

805 /********** Callback functions ***********/ 
806 

807 /* This callback from VDU. SetValues routes the call to the primary route dest.*/ 

808 ULONG cb VDUSetV Route Prim (Identifier interface, ORBStatus status, 



809 Environment *ev, long user_data, Session session, 

810 char *vdu_id, SeqCouple *data) 

811 { 

812 Callback_Data *callback_data; 
813 

814 if (status != VESP_SUCCESS | | ev->_major != NO_EXCEPTION) 

815 { 

816 vesp_log_info(VESP_CAT_ALL, "Error", "VDU. SetValues failure"); 

817 log_unparsable ("Error was \"%s\ M ", 

818 (ev->vesp_error_description) ? 
'819 ev->vesp_error_description : 
820 vesp_f ind_error (status) ) ; 

821 

822 /* Some problem occurred while Writing to the VDU. Don't panic, 

82 3 * just continue and try to route the call anyway. 

824 */ 

825 } 
826 

82 7 /* Resurrect the callback structure from user_data */ 
828 callback_data = (Callback_Data *)user_data; 

829 

830 /* Use the routing extension in the callback structure to route 

831 * the call. 

832 */ 

833 Vesp_Request ( "TS. Route", TS_Route_callback, 

834 (ULONG) 0UL, ev->session, 

835 vdu_id, callback_data->prim_route ) ; 
836 

83 7 /* The Scripter's involvement in this call is now done. Since we 

838 * touched the VDU for the call earlier, the Scripter is on the list of 

83 9 * "owners" for that VDU. We invoke the terminate method now. 

840 */ 

841 Vesp_Request ( "VDU. Terminate" , VDU_Terminate_callback, 

842 (ULONG) 0UL, ev->session, vdu_id) ; 
843 

844 /* The callback data is not needed in TS_Route_callback ( ) , since 

845 * there is no more work to do there, so we free it now. First 

846 * free the sequence of VDU couples, then the callback structure. 

847 */ 

848 vesp_couple_seq_delete (callback_data->vdu_data) ; 

849 vesp_free (callback_data) ; 
850 

851 return (VESP_SUCCESS) ; 

852 } 
853 



854 /* 
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855 * Special FEDEX NEXUS callback from VDU SetValues . Now we need to do an 

856 * ANI lookup in the FEDEX Server. 

857 */ 

858 ULONG cb_VDUSetV_ANILookUp (Identifier interface, ORBStatus status, 



859 Environment *ev, long user_data, Session session, 

860 char *vdu__id, SeqCouple *data) 

861 { 

862 Callback_Data *callback_data; 
863 

864 if (status != VESP_SUCCESS | | ev->_major != NO_EXCEPTION) 

865 { 

866 vesp_log_info(VESP_CAT_ALL, "Error", "VDU. SetValues failure"); 

867 log_unparsable ("Error was \"%s\" n , 

868 (ev->vesp_error_description) ? 

869 ev->vesp_error_description : 

870 vesp_f ind_error (status) ) ; 
871 

872 /* Some problem occurred while Writing to the VDU. Don't panic, 

873 * just continue and try to perform an ANI Lookup. 

874 */ 

875 } 
876 

877 /* Resurrect the callback structure from user_data */ 

878 callback_data = (Callback_Data *)user_data; 
879 

880 /* 

881 * Check the ANI that came with the call. If it is the system default, 

882 * which means the caller had no ANI delivered, route the call to the 

883 * secondary routing VDN (Conversant) . Otherwise, submit an ANI Lookup 

884 * request to the FEDEX server and make a routing decision based on that 

885 * return. One or the other of the callback functions must remove the 

886 * callback structure from memory (this necessitates a special route 

887 * callback function - if we tried to remove it from memory here, the 

888 * cases where ANILookUp is done would crash the server) . 

889 */ 

890 if ( (strlen(callback_data->ani) < 10) 

891 || ( ! strncmp (callback_data- >ani+3 , "5556666" , 7) ) ) 

892 { 

8 93 Vesp_Request ( "TS .Route" , cb_TSRoute_rmCB, 

894 (ULONG) callback_data, ev->session, 

8 95 vdu_id, callback_data- >sec_route ) ; 

896 } 

897 else 

898 { 

899 Vesp_Request ( "FEDEX .ANILookUp" , FEDEX_ANILookUp_callback, 

900 (ULONG) callback_data, ev->session, 

901 vdu_id, callback_data->ani) ; 

902 } 
903 

904 Vesp_Request ( "VDU. Terminate" , VDU_Terminate_callback, 

905 (ULONG) 0UL, ev->session, vdu_id) ; 
906 

907 return (VESP_SUCCESS) ; 

908 } 
909 

910 ULONG TS_Route_callback ( Identifier interface, ORBStatus status, 

911 Environment *ev, long user_data, Session session, 

912 char *vdu_id, char *ext) 

913 { 

914 return (VESP_SUCCESS) ; 

915 } 
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916 

917 /* 

918 * Special case of Route callback in which we remove the callback structure 

919 * from memory. 

920 */ 

921 ULONG cb TSRoute rmCB ( Identifier interface, ORBStatus status, 



922 Environment *ev, long user_data, Session session, 

923 char *vdu_id, char *ext) 

924 { 

925 Callback_Data *callback_data ; 
926 

927 callback_data = (Callback_Data *) user_data; 

928 

929 vesp_couple_seq_delete (callback_data->vdu_data) ; 

930 vesp_free (callback_data) ; 
931 

932 return (VESP_SUCCESS) ; 

933 } 
934 

935 ULONG VDU_Terminate_callback ( Identifier interface, ORBStatus status, 

936 Environment *ev, long user_data, Session session, 

937 char *vdu_id) 

938 { 

93 9 return VESP_SUCCESS; 

940 } 

941 

942 ULONG FEDEX_LookUp_callback ( Identifier interface, 

943 ORBStatus status, Environment *ev, long user_data, 

944 Session session, char *vdu_id, char *data) 

945 { 

946 Callback_Data *callback_data; 

947 Environment local_ev; 

948 any result; 
949 

950 if (status != VESP_SUCCESS || ev->_major != NO_EXCEPTION) 

951 { 

952 vesp_log__info (VESP_CAT__ALL, "ERROR", "FEDEX Lookup Failed"); 

953 log_unpar sable ( "Error was \"%s\" 11 , 

954 (ev->vesp_error_description) ? 

955 ev->vesp_error_description : 

956 vesp_find_error (status) ) ; 

957 } 
958 

959 /* Resurrect the callback structure from user_data */ 

960 callback_data = (Callback_Data *)user_data; 
961 

962 /* 

963 * At least for now, the VRU is not expecting any data returned 

964 * from the tr2_* Lookup call. 

965 */ 

966 result. _type = "void"; 

967 result ._value = (void *)NULL; 

968 if (Request_send_def erred_response (callback_data- >request , 

969 &local_ev, &result) != VESP_SUCCESS) 

970 { 

971 Vesp_Send_Alarm( object_gbl, "Script . Problem" , 

972 "high", "Could not send deferred response" ); 

973 log_unpar sable ("Could not send def response from MeterLookUp callback"); 

974 } 
975 

976 Object_release ( callback_data- >request , &local_ev ); 
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977 vesp_free (callback_data) ; 

978 

979 return VESP_SUCCESS ; 

980 } 
981 

982 ULONG FEDEX_ANILookUp_callback ( Identifier interface, 

983 ORBStatus status, Environment *ev, long user_data, 

984 Session session, char *vdu_id, char *ani) 

985 { 

986 Callback_Data *callback_data; 
987 

988 callback_data = (Callback_Data *) user_data; 

989 

990 if (status != VESP_SUCCESS ) 

991 { 

992 /* 

993 * The ANI lookup failed or there was no unique match in the 

994 * Vantive DB. Route the call to the VRU. 

995 */ 

996 vesp_log_info(VESP_CAT_ALL, "ANI_NOTUNIQUE " , ani) ; 
997 

998 Vesp_Request ( "TS. Route", TS_Route_callback, 

999 (ULONG) OUL, ev->session, 

1000 vdu_id, callback_data->sec_route ) ; 

1001 } 

1002 else 

1003 { 

1004 /* 

1005 * The ANI lookup was unique in the Vantive DB . Route the call to 

1006 * the agent split. 

1007 */ 

1008 vesp_log_info(VESP_CAT_ALL, "ANI_UNIQUE" , ani) ; 
1009 

1010 Vesp_Request ( "TS. Route" , TS_Route_callback, 

1011 (ULONG) OUL, ev->session, 

1012 vdu_id, callback_data->prim_route ) ; 

1013 } 
1014 

1015 /* We're done with the callback structure */ 

1016 vesp_couple_seq_delete (callback_data- >vdu_data) ; 

1017 vesp_free (callback_data) ; 
1018 

1019 return (VESPJSUCCESS) ; 

1020 } 
1021 



1022 /********** Utility functions ***********/ 
1023 

1024 /* Case insensitive version of strncmpO */ 

1025 int strncmp i (char *buffl, char *buff2, int len) 

1026 { 



1027 int i, cl, c2; 

1028 for ( i = 0; i < len; ++i, ++buffl, ++buff2) 

1029 { 

1030 cl = toupper (*buff 1) ; c2 = toupper (*buff2); 

1031 if (cl == '\0' ScSc c2 == »\0») 

1032 break; 

1033 if (cl == c2) continue; 

1034 return (cl > c2) ? 1 : -1; 

1035 } 

1036 return 0; 



1037 } 
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1038 

1039 /* Case insensitive version of strcmpO */ 

1040 int strcmp i (char *buffl, char *buff2) 



1041 { 

1042 int cl, c2; 

1043 for (; TRUE; ++buffl, ++buff2) 

1044 { 

1045 cl = toupper (*buff 1) / c2 = toupper (*buff2) ; 

1046 if (cl == '\0' && c2 == '\0') 

1047 , break; 

1048 if (cl == c2) continue; 

1049 return (cl > c2) ? 1 : -1; 

1050 } 

1051 return 0; 

1052 } 
1053 
1054 



1055 /* This utility function locates a couple by name in a sequence of 

1056 * couples. A pointer to the matching couple is returned. No data is 

1057 * copied and no memory is allocated. Beware the returned pointer is 

1058 * not used beyond the scope of the SeqCouple it points into! 

1059 */ 

1060 Couple *find_couple (SeqCouple *seqcpl, char *name) 

1061 { 

1062 int i; 
1063 

1064 if (seqcpl == NULL | | name == NULL) 

1065 return NULL; 
1066 

1067 for (i = 0; i < seqcpl- >_length; ++i ) 

1068 if (! strcmp (seqcpl- >_buffer [i] . name , name)) 

1069 return (&seqcpl->_buf f er [i] ) ; 
1070 

1071 return NULL; 

1072 } 
1073 

1074 /* Case-insensitive version of f ind_couple ( ) using strcmp i() */ 

1075 Couple *f ind__couple_i (SeqCouple *seqcpl, char *name) 

1076 { 



1077 int i; 

1078 if (seqcpl == NULL | | name == NULL) 

1079 return NULL; 
1080 

1081 for (i = 0; i < seqcpl- >_length; ++i ) 

1082 if (Istrcmp i (seqcpl- >_buf f er [i] .name, name)) 

1083 return (&seqcpl ->_buf f er [i] ) ; 
1084 

1085 return NULL; 



1086 } 

1087 

1088 

1089 /* Parse dnis file and put info into an array of structures */ 

1090 void parse_dnis_data (Dnis_Data **dnis_tbl, int *num_dnis_tbl ) 

1091 { 

1092 int i, j; 

1093 char *client, *cc_loc, *proute, *sroute, *desc, *ptr; 

1094 SeqSeqCouple seqseqcp; 

1095 Request request; 

1096 Environment ev; 

1097 Session session; 

1098 ULONG result; 
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1099 Couple *Cptr; 
1100 

1101 /* Set defaults in case something goes wrong */ 

1102 *dnis_tbl = NULL; 

1103 *num__dnis_tbl = 0; 
1104 

1105 /* Get the default session for GetFewRecords call */ 

1106 if (Vesp_get_default_session(object_gbl, ^session) != VESPJSUCCESS) 

1107 { 

1108 log_unparsable ("No default session for loading DNIS table\n") ; 

1109 return; 

1110 } 
1111 

1112 /* Build a request to load DNIS table from the Directory Server. This 

1113 * function is called only at startup or when the GenericUpdate method 

1114 * is invoked; so we can safely make a synchronous call to the DS . 

1115 */ 

1116 seqseqcp ._maximum =1; /* Specify maximum of one row to be returned */ 

1117 seqseqcp ._length = 0; 

1118 seqseqcp ._buffer - NULL; 

1119 result = Vesp_Request_Sync ( "DS . GetFewRecords " , &ev, session, ^request, 

1120 "", /* Default table */ 

1121 "type=_dnisEnglish" , /* Criteria string */ 

1122 &seqseqcp) ; /* Resulting tables */ 
1123 

1124 /* If the DS returned a positive response, process the results */ 

1125 if (result « VESP_SUCCESS | | result == VESP_PARTIAL_SUCCESS) 

1126 { 

1127 /* Make sure that a row of data was actually returned */ 

112 8 if ( seqseqcp. _length > 0) 

1129 { 

1130 /* The number of defined DNIS is the length of the first row 

1131 * returned. Use this to allocate memory for the table of 

113 2 * structures in memory. It may be more than we actually use 
113 3 * if we encounter invalid entries, but no matter. 

1134 */ 

1135 *dnis_tbl = (Dnis_Data * ) vesp_calloc ( 

1136 seqseqcp. _buf fer [0] ._length, 

1137 sizeof (Dnis_Data) ) ; 
1138 

113 9 /* Now parse each entry in this sequence. i counts through 

114 0 * the couples in the sequence, j counts through the structures 

1141 * we are creating. 

1142 */ 

1143 for (i = j = 0; i < seqseqcp ._buf fer [0] ._length; i++) 

1144 { 

1145 /* Assign a pointer to save some typing */ 

1146 Cptr = & (seqseqcp ._buf fer [0] ._buf fer [i] ) ; 
1147 

1148 /* If name or value is blank, skip this one */ 

1149 if (strlen (Cptr->name) == 0 | | strlen (Cptr- >value) == 0) 

1150 continue; 
1151 

1152 /* Parse the value for 

1153 * Client : CallCenter : PrimaryRoute : SecondaryRoute : Description . 

1154 * Do not remove any white space, parse based on the colons 

1155 * only. If the format is not right, skip this DNIS. 

1156 * Replace the colons with null characters and save pointers 

1157 * to the start of each segment of text. 

1158 */ 
1159 
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1160 /* Set a pointer to the start of the Client, then find 

1161 * the colon marking the end. 

1162 */ 

1163 client = Cptr->value; 

1164 for (ptr = client; *ptr && *ptr != ':'; ++ptr) 
1165 

1166 if (*ptr == ' \0 f ) /* 1st colon missing. Skip this DNIS */ 

1167 continue; 

1168 *ptr = 1 \0'; /* Terminate client, replacing the colon */ 
1169 

1170 /* Set a pointer to the start of the Call Center name, then 

1171 * find the colon marking the end. 

1172 */ 

1173 cc_loc = ptr + 1; 

1174 for (ptr = cc_loc; *ptr && *ptr != ':'; ++ptr) 
1175 

1176 if (*ptr == »\0') /* 2nd colon missing. Skip this DNIS */ 

1177 continue; 

1178 *ptr = ' \0'; /* Terminate proute, replacing the colon */ 
1179 

1180 /* Set a pointer to the start of the primary route, then find 

1181 * the colon marking the end. 

1182 */ 

1183 proute = ptr + 1; 

1184 for (ptr = proute; *ptr *ptr != ':'; ++ptr) 
1185 

1186 if (*ptr == ' \0') /* 2nd colon missing. Skip, this DNIS */ 

1187 continue; 

1188 *ptr = ' \0'; /* Terminate proute, replacing the colon */ 
1189 

1190 /* Set a pointer to the start of the secondary route, then find 

1191 * the colon marking the end. 

1192 */ 

1193 sroute = ptr + 1; 

1194 for (ptr = sroute; *ptr && *ptr != »:■; ++ptr) 
1195 

1196 if (*ptr == '\0') /* 2nd colon missing. Skip this DNIS */ 

1197 continue; 

1198 *ptr = '\0'; /* Terminate sroute, replacing the colon */ 
1199 

1200 /* Set a pointer to the start of the dnis description */ 

1201 desc = ptr + 1; 
1202 

1203 /* Copy the data to the structure. Convert the client 

1204 * code from the table into an enumerated value. Copy the 

1205 * dnis, location, routes, and description verbatim. 

1206 */ 
1207 

1208 /* The couple's name is the DNIS */ 

1209 strcpy ( ( *dnis_tbl) [ j ] . dnis , Cptr->name) ; 
1210 

1211 if (Istrncmp i (client, " FEDEX NEXUS " , 11)) 

1212 (*dnis_tbl) [j] .client = FEDEXN; 

1213 else if (Istrncmp i (client, "GE TPC", 6)) 

1214 (*dnis_tbl) [j] .client = GE_TPC; 

1215 else 

1216 (*dnis_tbl) [j] .client = UNKNOWN; 

1217 strcpy ((*dnis_tbl) [j] . cc_location, cc_loc) ; 

1218 strcpy ( (*dnis__tbl) [j] .prim_dnis_route, proute) ; 

1219 strcpy ( ( *dnis__tbl) [j] . sec_dnis_route , sroute) ; 

1220 strcpy ((*dnis_tbl) [j] .dnis_desc, desc) ; 
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1221 



1222 log_unparsable("DNIS data retreived for %s:%s", 

1223 (*dnis_tbl) [j] .dnis, (*dnis_tbl) [j] .dnis_desc) ; 
1224 

1225 ++ j ; /* Valid structure filled in, increment count */ 

1226 } /* End for (i = j = 0...) */ 
1227 

1228 *num_dnis_tbl = j; /* Record the number of valid DNIS ' s */ 

1229 } /* End if (seqseqcp ._length > 0) */ 

1230 } /* End if (result == VESP_SUCCESS . . . ) */ 
1231 

1232 /* Now free all resources that were allocated automatically by 

1233 * Vesp_Request_Sync () . 

1234 */ 

1235 Vesp_Request_Delete (session, request) ; 



1236 } 
1237 

1238 /* 

123 9 * parse_cvis_data - creates a list of Conversants known to this VESP 

1240 * environment. It does this by looking at the configuration information 

1241 * for VOX and looks for "vru" records. 

1242 */ 

1243 void parse_cvis_data (Cvis_List **cvis_tbl, int *numcvislist ) 

1244 { 



1245 SeqSeqCouple seqseqcp; 

1246 Request request; 

1247 Environment ev; 

1248 Session session; 
124 9 ULONG result; 

1250 char *cptr, *vrudata, *ptrl; 

1251 int i, j, k; 

1252 char cvis [64] , dummy [64], dummy 1 [64] ; 
1253 

1254 /* Set defaults in case something goes wrong */ 

1255 *cvis_tbl = NULL; 

1256 *numcvislist = 0; 
1257 

1258 /* Get the default session for GetFewRecords call */ 

1259 if (Vesp_get_default_session(object_gbl, ^session) != VESP_SUCCESS) 

1260 { 

1261 log_unparsable ("No default session for loading CVIS table\n"); 

1262 return; 

1263 } 
1264 

12 65 /* Attempt to get the VOX configuration information */ 

12 66 seqseqcp ._maximum = 1; 

1267 seqseqcp ,_length = 0; 

12 68 seqseqcp ._buffer = NULL; 

1269 result=Vesp_Request_Sync ( "DS .GetFewRecords" , &ev, session, ^request, "", 

1270 "type=\ n srv\" & name=\ "VOX\ " " , &seqseqcp) ; 
1271 

1272 if (result == VESP_SUCCESS || result VESP_PARTIAL_SUCCESS) 

1273 { 

1274 log_unpar sable ("Got a DS record for VOX" ); 

1275 /* This is really ugly, but apparently the toolkit 

12 76 * provides us with no way to parse the configuration 

1277 * record for another server. The "Context" functions 

1278 * provided by the toolkit only work for the server's own 
12 7 9 * configuration. The problem is that the GetFewRecords 
1280 * call returns a sequence of sequences, one couple in the 
12 81 * sequences has a name "configuration" and a value 
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12 82 * that is a string representation of yet another 

1283 * sequence of couples. All of this mess unravels that mess. 

1284 */ 

1285 j=0; 

1286 *cvis_tbl = (Cvis_List * ) vesp_malloc (sizeof (Cvis_List ) ) ; 

1287 for(i=0 ; i < seqseqcp ._buf f er [0] ._length ; i++) 

1288 { 

1289 if (strcmp (seqseqcp ,_buffer [0] ._buffer [i] .name, "configuration") == 0) 

1290 { 

1291 cptr=seqseqcp ._buf fer [0] ._buffer[i] .value; 

1292 /* cptr now points at a string which is a representation of 

1293 * a sequence of couples, some of which contain vru names. 
12 94 * We'll parse through the string looking at quote marks to 

12 95 * delimit names and values. 

1296 */ 

1297 if ( (ptrl=strtok(cptr, "\"") ) != NULL) 

1298 { 

1299 while ( (ptrl=strtok (NULL, "\"") ) != NULL) 

1300 { 

1301 if (strcmp (ptrl, "vru") == 0) 

1302 { 

13 03 /* This a a couple with the name=vru. The second 
13 04 * quote mark starts the value string. 

1305 */ 

13 06 ptrl=strtok(NULL, »\»") ; 

13 07 vrudata=strtok(NULL, "\"") ; 

1308 /* vrudata looks like " [Cc] onversant no. name port" */ 

13 09 if (strncmp (vrudata+1, "onversant " , 10) == 0) 

1310 { 

1311 if(j > 0) 

1312 { 

1313 *cvis_tbl = (Cvis_List * ) vesp_realloc ( *cvis_tbl , 

1314 (j+1) *sizeof (Cvis_List) ) / 

1315 } 

1316 sscanf (vrudata, "%s %d %s %s", dummyl, &k, cvis, dummy); 

1317 strcpy ( (*cvis_tbl) [j] .cvis, cvis) ; 

1318 (*cvis_tbl) [j] .handle=NULL; 

1319 j += 1; 

1320 *numcvislist += 1; 

1321 log_unparsable ( "Added Conversant '%s ! to list", cvis); 

1322 } 

1323 /*Or vrudata looks like " [Cc] onversantS no. name port"*/ 

1324 if (strncmp (vrudata+1, "onversantS ", 11) == 0) 

1325 { 

1326 if(j > 0) 

1327 { 

1328 *cvis_tbl = (Cvis_List * ) vesp_realloc ( *cvis_tbl , 

1329 (j+1) *sizeof (Cvis_List) ) ; 

1330 } 

1331 sscanf (vrudata, "%s %d %s %s" , dummyl, &k, cvis, dummy); 

1332 strcpy ( (*cvis_tbl) [ j ] .cvis, cvis) ; 

1333 (*cvis_tbl) [j] .handle=NULL; 

1334 j += 1; 

1335 *numcvislist += 1; 

1336 log_unparsable ( "Added Conversant ' %s ' to list", cvis) ; 

1337 } 

1338 } /* If vru record */ 

1339 } /* Search through "value" string for quote marks */ 

1340 } 

1341 } /* If this is the record named "configuration" */ 

1342 } /* For all records retrieved from DS */ 
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1343 } /* If DS request is successful */ 

1344 else 

1345 { 

1346 log_unparsable ( "Failed to retrieve DS record for VOX"); 

1347 } 
1348 

1349 Vesp_Request_Delete (session, request) ; 

1350 

1351 (void) vesp_f lush_log () ; 

1352 

1353 } 

1354 

13 55 ORBStatus parse_conf ig_parameters (void) 

1356 { 

1357 Environment env; 

1358 Context ctx; 

1359 Session session; 

1360 SeqCouple *configseq; 
1361 

1362 /* Get default session, and config from that. */ 

1363 SCHECK( Vesp__get_def ault_session (obj ect_gbl , ^session) ) ; 

1364 SCHECK( Session_get_context (session, &env, &ctx) ) ; 

1365 Context_get_conf iguration (ctx, &env, &conf igseq) ; 

1366 if (conf igseq- >_length > 0) 

1367 { 

1368 /* Nothing to look for currently */ 

1369 log_unparsable ( "No special Scripter configuration parameters. 

1370 } /* End if (conf igseq- >_length > 0) */ 
1371 

1372 vesp_couple_seq_delete (conf igseq) ; 

1373 return VESP_SUCCESS ; 

1374 } 



CTIEar.x 



1 /* Copyright (c) H| AT&T Solutions Customer Care */ 

2 program CTIEARPROG { 

3 version CTIEARVERS { 

4 int TO_D28(string) = 1 ; 

5 }=1; 

6 }=99; 
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1 /* Copyright (c) AT&T Solutions Customer Care */ 

2 /****************** ******************************^ 

3 * CTIEar - Remote procedure called from the CTI server to pass Conversant 

4 * connect messages. Passes whatever it hears on to DIP28. 

5 * J.J. Sager 

g ******** **************************************** ***************************** 

7 */ 

8 #include <stdio.h> 

9 #include <errno.h> 

10 #include <string.h> 

11 #include <rpc/rpc.h> 

12 ttinclude "CTIEar. h" 

13 #include <time.h> 

14 #include <sys/timeb . h> 

15 #include <sys/ipc.h> 

16 #include <sys/sem.h> 
17 

18 # inc lude " / a 1 1 / inc lude /me sg . h " 
19 

20 #define BUFFER_SIZE 200 

21 ftdefine SEM_KEY 284327 
22 

23 int *to_d28_l(char **msg) 

24 { 

25 static int ret; 

26 int i; 

27 int OutMsgQID; 

2 8 struct timeb timebuf; 

29 char timestamp [20] ; 

30 char sysstring [256] ; 

31 key_t sem_key; 

32 int semid; 
33 

34 struct _OutputMsg { 

3 5 struct mbhdr hd; 

36 char buf f er [BUFFERJSIZE] ; 

37 } OutMsgBuf f er; 
38 

3 9 errno = 0; 

4 0 sem_key = SEM_KEY; 
41 

42 /**** ************************************ ******************** 

43 * Debug mode is turned on by creating a semaphore with ID 

44 * equal to SEM_KEY. Check for it now. 

45 ************************************************************ 

46 */ 

47 semid = semget (sem_key , 0 # IPC_ALLOC) ; 

48 if (semid != -1) 

49 { 

50 f time (&timebuf ) ; 

51 cf time (timestamp, "%D %T" , &timebuf . time) ; 

52 sprintf (sysstring, 

53 "/bin/echo 'Received from Scripter %s [%s.%d]' >>/tmp/ctiear . debug" , 

54 *msg, timestamp, timebuf . millitm) ; 

55 system (sysstring) ; 

56 } 
57 

5g ^****************************************************** 

59 * Find the Message Queue for sending data to DIP28 

gO ****************************************************** 

61 */ 
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62 OutMsgQID=msgget (DIP28 , 0666) ; 

63 if (OutMsgQID < 0) 

64 { 

65 fprintf (stderr, "Couldn' t find message Q ID for DIP28\n"); 

66 sleep (5) ; 

67 exit(l); 

68 } 
69 

70 /******************************************************* 

71 * Set up default values for message header to DIP2 8 

72 ******************************************************* 

73 */ 

74 OutMsgBuf fer .hd.mchan=0 / /* Pretend we're assoc w/ channel 0 */ 
7 5 OutMsgBuf fer .hd.mtype=l; 

76 OutMsgBuf fer . hd . morig=100 ; /* Fake ID for us */ 

77 OutMsgBuf fer .hd.mcont=100; /* Indicates an "ISDN" record for DIP28 */ 
7 8 OutMsgBuf fer . hd.mseqno=0 ; 

79 

80 strcpy (OutMsgBuf fer .buffer, *msg) ; 

81 

82 

83 i=msgsnd (OutMsgQID, &OutMsgBuf f er , sizeof (OutMsgBuf fer) , 1) ; 

84 if(i < 0) 

85 { 

86 fprintf (stderr, "Couldn 1 t send to DIP28,"); 

87 fprintf (stderr, " return code from msgsnd: %d,", i) ; 

88 fprintf (stderr, " errno : %d\n" , errno) ; 

89 f flush (stderr) ; 

90 ' ret=l; 

91 return (&ret) ; 

92 } 

93 else 

94 { 

95 ret=0; 

96 return (&ret) ; 

97 } 



98 } 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



/* 

* Copyright 
*/ 

char *Agent_file 

/* 
★ 



AT&T American Transtech Inc. 



■/u/projects/DATA/isdn/agent . file" ; 



Transaction codes 



*/ 

#define ANI 200 
#define RANI 250 
#define ISDN_REC 
#define AGT_INIT 
#define L0G_0N 
L0G_0FF 
DIP_TERM 
ANI_M0N 
ANI STAT 



*/ 
*/ 



#def ine 
#def ine 
#def ine 
#define _ 
/*test 
21 #define db_pr 
22 

#define MAXCHAN 
#define MAX CHAR 
#define MAXSIZE 



/* ani request 

/* ani request return code 
100 /* raw isdn record 

125 /* reinitialize agent table 

130 /* start logging traffic 

135 /* stop logging traffic 

340 /* script termination message 

400 /* request complete ani table 

500 /* request statistics on ani 



*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 



printf 



48 
72 
80 



/* test*/ 

/* Max channels 
/ * Max chars in 
/ * Max bytes in 



in system */ 
terminal imput 
input */ 



#define ALARM_VAL 20 
/* 



/* Initial time-out value */ 



★ 

*/ 



Message contents 



#define CONNECT 
#define DISCON 
#define ABANDON 
ttdefine LINKUP 
#define LINKDOWN 



#def ine 
#def ine 
#def ine 
#def ine 

/* 
* 

*/ 



LINEX 
TRKGRP 
SIDANI 
CALNAM 



0x41 
0x42 
0x43 
0x44 
0x45 

0x31 
0x32 
0x3 9 
0x3A 



/* line extention number */ 



trunk group number 
calling party number 
caller's name " : " 



*/ 
*/ 



Constants and states 



#define CIDLE 
#define CBUSY 



/* 

* 



Offsets and lengths 
Subtract 1 because 



54 


#def ine 


CAGTNUM 


11 


/* 


55 


#def ine 


AGTLEN 


5 


/* 


56 


#def ine 


CSIDANI 


17 


/* 


57 


#def ine 


ANILEN 


10 


/* 


58 


#def ine 


TKGLEN 


3 


/* 


59 


#def ine 


DAGTNUM 


2-1 


/* 


60 


#def ine 


AAGTNUM 


2-1 


/* 


61 


/* Cox | 




1 */ 





/* Channel is unoccupied */ 
/* " occupied */ 



of 1 -numbering 



Pos'n of agent num in connect message */ 
Length of agent num in message */ 
Pos'n of ANI digits */ 
Length ... */ 
Length of Trk Grp Num */ 

Pos'n of agent num in disconnect message */ 
Pos'n of agent num in abandon message */ 
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62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 



#define CVDN 34 

#define VDNLEN 5 

#define CCAL 2 8 

#define C ALLEN 5 



/* Pos'n of vdn in connect message */ 

/* Length of vdn num in connect message */ 

/* Pos'n of called principal extention */ 

/* Length of called ext in connect msg */ 



/************************************* 

Definition of structures for each host channel 
*****★★*********★**********★*******************/ 



struct ichan { 

struct { 

char status; 
char sidagt [AGTLEN+1] 
char s ideal [CALLEN+1] 
char sidvdn [VDNLEN+1] 

char sidani [ANILEN+1] 
call [MAXCHAN] ; 



}; 



} 



struct agent { 

char tkgnum [TKGLEN+1] / 
struct { 

char chan; 

char agtnum [AGTLEN+1] 
} recrd [MAXCHAN] ; 

}; 



/* 

/* 
/* 



/* = -l:unocc; = 0: occupied */ 
5 -digit agent + null term */ 
5-digit called ext + null term*/ 
5-digit VDN + null terminator */ 

/* 10-digit ANI num or 3-dig tkg 



/* Channel, 0-xx */ 

/* n-digit agent number */ 
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1 /* Copyright (c) AT&T American Transtech (Bob Cox - original code) */ 

2 /* Copyright (c) |B AT&T Solutions Customer Care (J. J. Sager - Modify 

3 * for VESP Intfc) 

4 */ 

5 /* 

6 * This is the master ISDN DIP. It receives ISDN data that 

7 * has been received from the CTI/ISDN gateway. It determines if the message 

8 * applys to this machine by matching the extension in the message 

9 * to a list of extensions in /u/projects/isdn/agent . f ile . If the message 

10 * applies to this machine, it stores the DNIS and ANI data in a matrix 

11 * for the channel that corresponds to that extension. If an application 

12 * uses get_ani.t to retrieve that ISDN data, this DIP returns the data. 

13 * A DIPTERM message causes this DIP to put all O's in the matrix for that 

14 * channel. Also, a Disconnect message from the gateway causes all O's to 

15 * be put there. 

16 */ 

17 #include <stdio.h> 

18 #include <sys/types .h> 

19 #include <sys/ipc.h> 

20 #include <sys/msg.h> 

21 ttinclude <signal.h> 

22 #include <ctype.h> 
2 3 #include <errno.h> 
24 #include <stdio.h> 

2 5 #include "etmsgs/appl_et . h" 
2 6 #include "mesg.h" 

27 #include "isdn.h" /* application control of DIP, msgtodip & msgtotsm */ 

2 8 #include "hlink.h" 
29 #include "hi.h" 

30 

31 char tmpagnt [10] , tmpani [15] ; /* Temp string variables */ 

32 char ac_ani [15] , tani [15] , zani [15] / /* Temp string variables */ 

33 char *tptr; /* Temporary pointer */ 

34 struct ichan *shrad, schan; /* Channel table pointer */ 

35 struct agent *shradl, sagent; /* Agent table pointer */ 

36 char *Logfile = n /u/projects/DATA/isdn/ISDN. log" ; 

37 int term_sw [MAXCHAN] ; 

38 char ibuf [1024] ; 

3 9 char obuf [2 04 8] ; 

40 long szmbhdr, szuniv; 

41 long szrmsg; 

42 struct mbhdr *pihdr, *pohdr; 

43 char *pidata, *podata; 

44 int Dipinst; 

45 int no_send = 0; 

46 int log_sw = 0; 

47 long time ( ) ; 

48 long ani_cnt = 0; 

49 long noani_cnt = 0; 

50 long nomsg_cnt = 0; 

51 long msg_cnt = 0; 

52 int nomsg_today_cnt = 0; 

53 long start_time; 

54 long this_time; 

55 int rpt_nomsg_cnt = 0 ; 
56 

57 main(argc, argv) 

58 int argc; char **argv; 

59 { 

60 int i,lgh; 

61 int ret; 
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62 


int chan, orig; 




6 j 


short cont ; 




C A 


inu ccnan; / ^ cnannei lor noc csui v • ioi v i/ 


/ 


DO 


*-* V* "k* f p /-t Vk it • / + ^ c? e* t /-m T"\f , \ i nfo "v~ o 4- /"» 1 /~\ pal 

SnraU — ocSCIlclIl, / aSSiyll pulilLcI s L.U lULal 


mpinoy^/ * / 
luciuui y / 


66 


shradl = &sagent; /* assign pointers to local 


memory */ 


D / 






68 


for (1 = 0 ; kMAXCHAN; i++) 




69 


term_sw[i] = 0; 




70 






71 


init ( argc, argv ); 




72 






73 


agent_init () ; 




74 






75 


/* Initialize to unavailable and not attached */ 




76 


tor (1 = U; 1 < NAAt-rlAlN ; 1 + + ; 




77 


clear_chan (i ) ; 




78 






79 


/* Remove any old gateway error files */ 






uniinK \ / cmp/ a . isanerrs ;; 




81 


unlink ( "/tmp/B . isanerrs " ) ; 




82 


unlink ( "/tmp/C . isanerrs " ; / 




83 






84 


time(&start time); /* get start time for statistics 


*/ 


85 






86 


■ 

db _j?r ( "DIP2 8 Waiting For Messages \n") ; 




87 


while (1; 




88 


i 




89 


ret = mesgrcv [DLPZ o , idui , iuz4, u,u;; 




90 


it (ret < u j 




91 


r 
I 




92 


db_J>r ( "DIP2 8 : MESGRCV FAILURE RET = %a, 


errno=%d\n 


93 


errno) / 




94 


continue ; 




95 


} 




96 


chan = pihdr- >mchan; 




97 


orig = pihdr- >morig ; 




98 


cont = pihdr- >mcont ; 




99 


pohdr->mchan = pihdr- >mchan; 




100 


/ oDjpr l "DiPzo , rcva : orig=%za, cn=tJa, cont= 


%2a\n n , orig 


101 


cont) ; */ 




102 


if (orig != TSM) 




103 


I 




104 


tchan = chan; 




105 


if (tchan < 0 ) 




106 


tchan *= - 1 ; 




107 


} 




108 






109 


/** Process the transaction type **/ 




110 






111 


switch (cont) 




112 


{ 




11 J 


case ANI : 




T 1 A 
1 14 


pohdr->mcont = RANI; 




115 


if (orig == TSM) 




l lo 


i=chan; 




117 


else 




118 


i = atoi (pidata) ; /* from anidiptest 


119 


ret = get_ani (podata, i) ; 




120 


lgh = strlen (podata) ; 




121 


term_sw[i] = 0; 




122 


szrmsg = szmbhdr + lgh + 1; 
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123 break; 

124 case ANI_MON: 

125 pohdr->mcont = RANI; 

126 ret = ani_mon (podata) ; 

127 lgh = strlen (podata) ; 

12 8 szrmsg = szmbhdr + lgh + 1; 
129 break; 

13 0 case ANIJSTAT: 

131 pohdr->mcont = RANI; 

132 ret = ani_stat (podata) ; 

133 lgh - strlen (podata) ; 

134 szrmsg = szmbhdr + lgh + 1; 

135 break; 

136 case ISDN_REC: 

137 if(log_sw) 

138 { 

139 /* db_pr ("DIP28: LOGGING ISDN REC0RD\n" ) ; */ 

140 logit (pidata) ; 

141 } 

142 raw_isdn (pidata) ; 

143 no_send = 1; 

144 break; 

145 case DIPJTERM: 

146 time ( &this_time) ; 

147 db_pr ("DIP28: DIP_TERM for Chan: %d [%ld]\n" / 

14 8 chan, this_time) ; 

149 if (orig == TSM) 

150 i=chan; 

151 else 

152 i = atoi (pidata) ; - 

153 if ( ! term_sw [i] ) 

154 clear_chan (i) ; 

155 no_send = 1; 

156 break; 

157 case AGT_INIT: 

158 db_pr ("DIP28 : AT AGT_INIT\n M ) ; 

159 agent_init () ; 

160 sprintf (podata, "Agent Table Processed\n" ) ; 

161 lgh = strlen (podata) ; 

162 szrmsg = szmbhdr + lgh + 1; 

163 break; 

164 case L0G_0N: 

165 db_pr ("DIP28: AT L0G_0N \n"); 

166 log_sw = 1; 

167 sprintf (podata, "Logging Started\n"); 

168 lgh = strlen (podata) ; 

169 szrmsg = szmbhdr + lgh + 1; 

170 break; 

171 case LOG_OFF: 

172 db_pr ("DIP28: AT L0G_0FF \n"); 

173 log_sw = 0; 

174 sprintf (podata, "Logging Stopped\n") ; 

175 lgh = strlen (podata) ; 

176 szrmsg = szmbhdr + lgh + 1; 

177 break; 

178 default: 

179 db_pr ("DIP28 : Invalid Transaction Code (%d) \n" , cont ) ; 

180 no_send = 1; 

181 break; 

182 } 

183 if (no send) 
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184 { /* no reply necessary */ 

185 no_send=0; 

186 continue; 

187 } 

188 if(orig != TSM) 

189 { 

190 ret = msgsnd (tchan, obuf , szrmsg, 1) ; 

191 if (ret < 0) 

192 db_pr ("DIP28: !TSM send fail, ret=%d, 
errno=%d\n" , ret , errno) ; 

193 t ime ( &thi s_t ime ) ; 

194 db_pr ("DIP28: send back (CHAN%d) (%s ) [%ld] \n" , tchan, 

195 podata, this_time) ; 

196 } 

197 else 

198 if ((ret = mesgsnd (orig, obuf, szrmsg, 1)) < 0) 

199 { 

200 db_j?r ( "DIP28 : send fail, ret=%d, errno=%d\n" , ret , errno) ; 

201 } 

202 else 

203 { 

204 "/* db_pr ("DIP28: SEND TO or=%2d, ch=%2d, cont=%d\n M , 
2 05 orig, chan , pohdr- >mcont ) ; */ 

2 06 time (&this_time) ; 

207 db_jpr ("DIP2 8: send to cham%d (%s) [%ld] \n" , chan, podata, 

208 this_time) ; 

209 } 

210 } /* END WHILE (1) */ 



211 } /* END MAIN */ 
212 

213 init ( argc, argv ) 

214 int argc; 

215 char **argv; 

216 { 



217 int ret; 
218 

219 if (argc < 2) { 

220 exit(-l); 

221 } 

222 Dipinst = atoi ( argv[l] ); 

223 startup ( DIP28, Dipinst); 

224 while(ret = (mesgrcv ( DIP28, ibuf, 0, IPC_NOWAIT )) > 0) ; 

225 szmbhdr = sizeof (struct mbhdr) ; 

226 szuniv = sizeof (struct ms_univ) ; 
22 7 pihdr = (struct mbhdr *) (ibuf) ; 
22 8 pohdr = (struct mbhdr *) (obuf) ; 
22 9 pohdr- >mtype = 1; 

230 pohdr- >morig - DIP2 8; 

231 pidata = ibuf + szmbhdr; 
2 32 podata = obuf + szmbhdr; 
233 



234 } 
235 

236 /***************************************^ / 

237 /** Process the raw isdn record - taken from DIP15 **/ 
23 8 /****************** **********************^ / 

23 9 raw_isdn (nbuf ) 

24 0 char *nbuf; 

241 { 

242 int i,j; 
243 
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244 

245 switch (nbuf [0] ) 

246 { 

247 case CONNECT: /* Connect message */ 

248 msg_cnt++; 

24 9 strncpy (tmpani , &nbuf [CSIDANI] , ANILEN) ; 

250 tmpani [ANILEN] = 0; 

251 /* Check for no ANI */ 

252 strncpy (ac_ani , fcnbuf [CSIDANI] , ANILEN - 7); 

253 for (i= 0; i< ANILEN; i++) 

254 tani[i] = '9'; 

255 tani[i] = ' \0 ' ; 

256 for (i=0; i<ANILEN - 7; i++) 

257 zani[i] = ' '/ 

258 zani[i] = ' \0'; 

259 if (strcmp (ac_ani, zani) == 0) /* See if AC is blank */ 

260 { 

261 /* no ani, fill with 9's */ 

262 strcpy (tmpani, tani) ; /* Copy 9's to ANI */ 

263 noani_cnt++; 

264 } 

265 else 

266 { 

267 /* we got an ani */ 

268 ani_cnt++; 

269 } 

270 j = AGTLEN; /* No leading spaces */ 

271 tptr = &nbuf [CAGTNUM] ; /* Start of agent num */ 

272 while (isspace ( *tptr) ) { 

273 j--; /* Decrement length */ 

274 tptr++; /* Increment ptr */ 

275 } 

276 strncpy (tmpagnt , tptr , j ) ; 

277 tmpagnt [j] = 0; 
278 

279 for (i=0; i< MAXCHAN; i++) { 

280 if (strcmp (tmpagnt , shradl- >recrd [i] . agtnum) == 0) 
2 81 break; 

282 } 

283 if (i == MAXCHAN) 

284 { 

285 time (&this_time) ; 

286 db_pr ("DIP2 8: CONNECT: ANI: %s, AGENT: %s, IGNORE 
[%ld] \n M , tmpani , tmpagnt, this_time) ; 

287 } 

288 else 

289 { 

290 time (&this_time) ; 

291 db_pr ("DIP28: CONNECT: ANI: %s, AGENT: %S, VDN: %.5s, 
CALLED_EXT: %.5s, PORT: %d [%ld] \n" , tmpani , tmpagnt , &nbuf [CVDN] , &nbuf [CCAL] , shradl - 
>recrd[i] . chan, this_time) ; 

292 

293 j = shradl->recrd [i] .chan; 

294 strcpy (shrad->call [j ]. sidani , tmpani) ; 

295 shrad->call [j] . status=CBUSY; 

296 strncpy (shrad->call [j] . sidvdn, &nbuf [CVDN] , VDNLEN) ; 

297 shrad->call [j] .sidvdn [VDNLEN] = 0; 

298 strncpy (shrad->call [j] . sidagt, &nbuf [CAGTNUM] , AGTLEN) ; 

299 shrad->call [j] .sidagt [AGTLEN] = 0; 

300 strncpy (shrad->call [j] . s ideal , &nbuf [CCAL] , CALLEN) ; 

301 shrad->call [j] .sidagt [CALLEN] = 0; 
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3 02 term__sw[j] = 1; 
303 

3 04 if (nomsg_today_cnt > 0) 

305 { 

3 06 report_msg( j ) ; 

3 07 nomsg_today_cnt = 0; 

308 } 

309 } 

310 break; 

311 case DISCON: /* Disconnect */ 

312 msg_cnt++; 

313 strncpy (tmpagnt, &nbuf [DAGTNUM] , AGTLEN) ; 

314 tmpagnt [AGTLEN] = 0; 

315 j = AGTLEN; / * No leading spaces */ 

316 tptr = &nbuf [DAGTNUM] ; /* Start of agent num */ 

317 while (isspace (*tptr) ) { 

318 j--; /* Decrement length */ 

319 tptr++; /* Increment ptr */ 

320 } 

321 strncpy (tmpagnt, tptr, j ) ; 

322 tmpagnt [j] = 0; 

323 for (i=0; i< MAXCHAN; i++) { 

324 if (strcmp (tmpagnt , shradl->recrd [i] . agtnum) == 0) 

325 break; 

326 } 

327 if (i == MAXCHAN) 

328 { 

329 time (&this_time) ; 

33 0 db_j>r ("DIP2 8: DISCONNECT: AGENT: %s, IGNORE 
[%ld] \n" , tmpagnt, this_time) ; 

331 } 

332 else 

333 { 

334 time (&this_time) ; 

335 dbjpr ("DIP2 8: DISCONNECT: AGENT: %s, PORT: %d 
[%ld] \n" , tmpagnt, shradl->recrd [i] . chan, this_time) ; 

336 

337 j = shradl->recrd [i] . chan; 

33 8 clear_chan ( j ) ; 

33 9 term_sw[j] = 0; 

340 if (nomsg_today_cnt > 0) 

341 { 

342 report_msg ( j ) ; 

343 nomsg_today_cnt = 0; 

344 } 

345 } 

34 6 break; 

347 case ABANDON: /* Caller Abandon */ 

34 8 msg_cnt++; 

34 9 strncpy (tmpagnt , &nbuf [CAGTNUM] , AGTLEN) ; 

3 50 tmpagnt [AGTLEN] = 0; 

3 51 j = AGTLEN; /* No leading spaces */ 

352 tptr = &nbuf [AAGTNUM] ; /* Start of agent num */ 

353 while ( isspace ( *tptr) ) { 

3 54 j--; /* Decrement length */ 

355 tptr++; /* Increment ptr */ 

356 } 

357 strncpy (tmpagnt , tptr , j ) ; 
3 58 tmpagnt [j] = 0; 

359 for (i=0; i< MAXCHAN; i++) { 

360 if (strcmp (tmpagnt , shradl- >recrd [i] .agtnum) == 0) 
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3 61 break; 

362 } 

363 if (i == MAXCHAN) 

364 { 

365 time (&this_time) ; 

366 db_pr ("DIP28: ABANDON: AGENT: %s, IGNORE 
[%ld] \n n , tmpagnt , this_time) ; 

367 } 

368 else 

369 { 

370 time (&this_time) ; 

371 db_pr ("DIP2 8: ABANDON: AGENT: %S, PORT: %d 
[%ld] \n" , tmpagnt , shradl- >recrd [i] . chan, this_time) ; 

372 

373 j = shradl- >recrd [i] . chan; 

374 clear_chan ( j ) ; 

375 term_sw[j] = 0; 

376 if (nomsg_today_cnt > 0) 

377 { 

3 78 report_msg ( j ) ; 

379 nomsg_today_cnt = 0; 

380 } 

381 } 

382 break; 

3 83 case LINKUP : /* Link up */ 

3 84 msg_cnt++; 

385 dbjr ("DIP28: LINKUP \n n ); 

3 86 break; 

3 87 case LINKDOWN: /* Link down */ 

3 88 msg_cnt++; 

389 dhjpr ("DIP28: LINK DOWN \n"); 

3 90 break; 

391 default: 

392 dbjpr ("DIP28: Invalid ISDN message content: [%c] \n" , nbuf [0] ) ; 

393 } 

3 94 return (0) ; 

395 } 

396 



3 97 clear__chan (channel) 
3 98 int channel; 
399 { 



400 int j; 

4 01 j = channel; 

4 02 strcpy (shrad->call [j] .sidani, "0000000000") ; 

403 strcpy (shrad->call [j ] . sidvdn, "00000 " ) 

404 strcpy (shrad->call [j] . s ideal, "00000") 
4 05 strcpy (shrad->call [j] .sidagt, "00000") 

406 shrad->call [j] . status=CIDLE; 

407 return (0) ; 



408 } 
409 

410 /* 

411 * this function is to get ANI from memory 

412 */ 

413 get_ani (pf rdip, chanid) 

414 char *pfrdip; 

415 int chanid; 

416 { 

417 /* loads ani info to struct going back to script */ 
418 

419 strcpy (pfrdip, shrad->call [chanid] . sidani) ; /* callers ani */ 
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420 s treat (pfrdip, shrad->call [chanid] . sidagt ) ; /* agent ext */ 

421 strcat (pfrdip, shrad->call [chanid] . sidcal) ; /* called ext */ 

422 strcat (pfrdip, shrad- >call [chanid] . sidvdn) ; /* vdn */ 
423 

424 if (shrad->call [chanid] . status == CIDLE) 

425 { 

42 6 nomsg_cnt += 1; 

427 nomsg_today_cnt += 1; 

42 8 time (&this_time) ; 

429 db_pr ("DIP28 : ***CALL WITH NO GATEWAY MESSAGE** * chan : %d 

[%ld] \n" , chanid, this_time) ; 
430 

431 /* If we get more than 10 nomsg 1 s in a row, log */ 

432 /* a higher priority message */ 

433 if (nomsg_today_cnt > 10) 

434 { 

435 db_pr ( "DIP28 : **EXCESSIVE CALLS WITH NO GATEWAY MESSAGES* *\n M ) ; 

43 6 report_nomsg (chanid) ; 

437 } 

438 } 
439 

440 return (0) ; 

441 } 
442 

443 /* loads ani info to struct going back to script */ 



444 ani_mon (monout ) 

445 char *monout; 

446 { 



447 int i; 

448 int pos; 

449 pos=0; 

450 for (i=0; i<MAXCHAN; i++) 

451 { 

452 sprint f (imonout [pos] , " (%02d) :%s:%s| ", 

453 i, 

454 shrad->call [i] . sidani, /* callers ani */ 

455 shrad->call [i] . sidvdn) ; /* called vdn */ 

456 pos=strlen (monout) ; 

457 } 
458 

459 return (0) ; 



460 } 
461 

462 /* Process ani statistics */ 

463 ani_stat (statout) 

464 char *statout; 

465 { 



466 long diff; 

467 long minutes; 

468 long hours; 

469 long days; 

470 char timebuf [30]; 
471 

472 t ime ( & thi s_t ime ) ; 

473 diff = this_time - start_time; 

474 minutes = diff / 60; 

475 hours = minutes / 60; 

476 days = hours / 24; 

477 cf time (timebuf , "%B %d, %Y %H : %M : %S " , &start_time) ; 
478 
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479 sprintf (statout , M Ani=%d, No Ani=%d, Mess=%d, No Mess=%d / Since %s 

(%d: %02d: %02d: %02d) " , ani_cnt , noani_cnt , msg_cnt , nomsg_cnt , t imebuf , days , (hours%24) , (minutes% 
60) ; (dif f %60) ) ; 



480 




return (0) ; 


481 


} 




482 






483 


/* 




484 


* This process creates and initializes both areas of shared memory. 


485 


* 


It then initializes all entries in the channel status table to un- 


486 


* 


occupied. Finally, it reads disk file /vs/data/agent . f ile and 


4 87 




creates the table which maps agent extension number to incoming 


488 




channel . 


489 


*/ 




490 


agent 


_init ( ) 


491 


{ 




4 92 




FILE *fopen(), *fptr; 


493 




int i , j ; 


494 






495 




char inagent [10] , inchan [5] / /* temp storage */ 


496 




char intkgnum [10] ; /* temp storage */ 


497 






498 




char tmpchan ; 


499 






500 






501 




/* Read disk file and establish host links */ 


502 






503 




fptr = fopen (Agent_f ile , "r " ) ; 


504 




db_pr ("DIP28: Opening agent file ' %s • \n" , Agent_f ile) ; 


505 




if (fptr == NULL) { 


506 




db_jpr ( "DIP28 : NO AGENT FILE ( %s ) \n" , Agent_f lie) ; 


507 




sleep (5 ) ; 


508 




exit (-1); 


509 






510 




if ( ( j = fscanf (fptr, "%s" , intkgnum)) != 1) { 


511 




dbj)r ( "DIP2 8 : Missing trunk group number, tokens = %d\n" 


512 




f close (fptr) ; 


513 




exit (3) ; 


514 




} 


515 




/* db_pr ("Trunk group number = [%s] \n\n" , intkgnum) ; */ 


516 




strcpy (shradl- >tkgnum, intkgnum) ; /* Copy to shr mem */ 


517 




for (i=0; i < MAXCHAN; i++) { 


518 




if ( ( j = fscanf (fptr, "%s %s", inagent, inchan)) != 2) { 


519 




if (j == -1) { 


520 




dbjpr ("DIP2 8: Agent File Initialization complete ! \n" ) 


521 




return (0) ; 


522 




} 


523 




db_pr ( "DIP2 8 : Incorrect agent /chan table, tokens = %d\n",j 


524 




f close (fptr) ; 


525 




exit (3) ; 


526 






527 




if (((tmpchan = atoi (inchan)) > MAXCHAN) ) { 


52 8 




db_pr ( "DIP2 8 : Incorrect agent/chan table, tokens = %d\n",j 


529 




f flush (stdout); 


530 




continue ; 


531 




} 


532 




db_pr ("\tExt = [%s] , chan = %d\n", inagent, tmpchan); 


533 




strcpy ( shradl ->recrd [i] . agtnum, inagent); /* Copy to shr mem 


534 




shradl - >recrd [i] . chan = tmpchan; 


535 




} 


536 






537 




fclose (fptr) ; 
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53 8 return (0) ; 

539 } 

540 

541 logit(rec) 

542 char *rec; 

543 { 

544 int lgh,fd; 

545 lgh = strlen(rec); 

546 if (lgh > 80) 

547 lgh = 80; 

548 fd = open (Logf ile, 2) ; 

549 if((fd < 0) && (errno == 2)) 

550 fd = creat (Logf ile, 0666) ; 

551 if (fd < 0) 

552 fd = open { n /dev/ console" , 1) ; 

553 lseek(fd, 0, 0) ; 

554 lseek(fd,0,2) ; 

555 write (fd, rec, lgh) ; 

556 close (fd); 

557 return (0); 

558 } 
559 

560 report_nomsg (chan) 

561 int chan; 

562 { 

563 char command [50]; 
564 

565 /* Call the isdn_error program to report a gateway problem */ 

566 if (rpt_nomsg_cnt == 0) 

567 { 

568 sprintf (command, "/etc/etc/isdn_error %d nomsg" , chan) ; 

569 db_pr ("DIP28: Calling ' %s ' \n" , command) ; 

570 system (command) ; 

571 } 
572 

573 /* Don't do this too often */ 

574 rp t _noms g_cn t + + ; 
575 

576 if (rpt_nomsg_cnt > 10) 

577 rpt_nomsg_cnt=0 ; 

578 } 
579 

580 report_msg (chan) 

581 int chan; 

582 { 

5 83 char command [50]; 

584 

5 85 /* Call the isdn_error program to report a good call */ 

586 sprintf (command, "/etc/etc/isdn_error %d msg",chan); 

587 db_pr ("DIP2 8: Calling • %s ' \n" , command) ; 

588 system (command) ; 

589 rpt__nomsg_cnt = 0 ; 

590 } 
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start : 

################################################### 
#_ ROUTE CALL APPLICATION 
#_ 

#_ PROGRAMMER: JEFF CRE WS 
#_ DATE: 
#_ 

#_ PURPOSE: THE PURPOSE OF THIS APPLICATION IS TO 
#_ TAKE AN INCOMING CALL AND PERFORM A NEXTSCRIPT 
#_ TO THE APPLICATION THE CALLER WANTED BASED ON 
#_ THE -8 00 NUMBER THE CALLER DIALED. 
################################################### 

################################################### 
#_ Modified HI^HH by J.J. Sager for addition 
#_ of Environment specification table (ROUTE_ENV) 
#_ and VESP enhancements. 

################################################### 

#_ Trap Caller Aborts to track VESP interaction 

1 . External Function 

Function Name: callabort 

#_ Initialize Variables 

2 . Set Field Value 

Field: CALLERS_INCOMING_NUMBER = "0000000000" 
Field: ATTEMPTED_DNIS_NUMBER = "00000" 
Field: ORIGINATING_NUMBER = "000000000" 

################################################### 
VESP_INITIATE : 

################################################### 

3 . Read Table 

Table Name: ROUTE_ENV 
Field: RT_ENV_PARAM 

4 . Evaluate 
If RT_ENV_ VALUE != "yes" 

5. Goto GET_DNIS_NUMBER 
End Evaluate 

6. Set Field Value 

Field: NEWCALL_NEEDED = "yes" 

7 . Answer Phone 

8 . External Function 

Function Name: vesp_newcall 

Use Arguments: VDUID "route_callA" $UNIX_TIME $CHANNEL_NUMBER 
Return Field: RTN_CODE 

9 . Evaluate 

If RTN_CODE = 0 

10. Set Field Value 

Field: NE WCALL_S ENT = "yes" 

11. External Function 

Function Name: putvduid 
Use Arguments : VDUID 
Return Field: RTN_CODE 
End Evaluate 

################################################### 
GET DNIS NUMBER: 
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################################################### 



12 . 

13 . 

14 . 

15. 
16. 

17 . 

18 . 

19. 

20. 
21. 

22 . 

23 . 

24 . 

25 . 

26 . 

27 . 

28 . 



get_ani 

ISDN_RECORD 

RTN_CODE 

substring 

DNIS_NUMBER 

RTN_CODE 

substring 
ANI_NUMBER 
RTN CODE 



ISDN RECORD 2 0 



ISDN RECORD 



10 
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ISDN RECORD 



10 



External Function 
Function Name: 
Use Arguments : 
Return Field: 
External Function 
Function Name : 
Use Arguments : 
Return Field: 
External Function 
Function Name : 
Use Arguments : 
Return Field: _ 
Evaluate 

If DNI S_NUMBER = "00000" 
External Function 
Function Name : 
Use Arguments: 
Return Field: 
External Function 
Function Name : 
Use Arguments : 
Return Field: 
External Function 
Function Name : 
Use Arguments : 
Return Field: 
External Function 
Function Name : 
Use Arguments : 
Return Field: _ 
Evaluate 
If DNI S_NUMBER = "00000" 

Goto NEED_INCOMING_NUMBER 
End Evaluate 
End Evaluate 

#_ Handle Switch A, B, or C VDNs 
External Function 
Func t i on Name : 
Use Arguments : 
Return Field: 
Evaluate 

If BLANK_CHECK = " 
External Function 
Function Name: 
Use Arguments : 
Return Field: _ 
End Evaluate 
Read Table 

Table Name: ROUTE_APPL Search From Beginning 

Field: route_appl_dnis_number = DNI S_NUNBER 
Evaluate 

If $MATCH_FOUND > 0 
Set Field Value 

Field: HOLD_DNIS_NUMBER = route_appl_dnis_number 
Field: HOLD_INCOMING_NUMBER = route_app_800_number 
Field: HOLD_AP PL I CAT I ON_NAME = route_appl_name 
Field: HOLD_DO_CLEAR_ANI = route_appl_do_clear_ani 
Goto CALL_NEXT_SCRIPT 
Else 



sleep 
5 

RTN_CODE 

get_ani 

I SDN_RECORD 

RTN_CODE 

substring 
DN I S_NUMB E R 
RTN_CODE 

substring 
ANI__NUMBER 
RTN CODE 



substring 
BLANK_CHECK 
RTN CODE 



(4 or 5 digits) 



DNIS NUMBER 
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BLANK_CHECK 
RTN CODE 
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29. Goto NE ED_ I NCOM I NG_NUMB E R 
End Evaluate 

################################################### 
NEED_INCOMING_NUMBER : 

################################################### 

#_ DNIS NUMBER NOT FOUND 

30. Set Field Value 

Field: ATTEMPTED_DNIS_NUMBER = ANI_NUMBER 

Field: ORIGINATING_NUMBER = ANI_NUMBER 

Field: NUMBER_NOT_FOUND = NUMB ER_NOT_ FOUND + 1 

31. Answer Phone 

32. Announce 

Speak Without Interrupt 

Phrase: "we are having trouble completing your call" 

33 . Set Field Value 

Field: ONE = 1 

Field: ONE_E IGHT_HUNDRED = 1800 
Field: ONE_E I GHT_E I GHT_E I GHT = 1888 
#_ Get incoming number 

34 . Prompt & Collect 

Prompt 

Speak With Interrupt 

Phrase: "please re-enter the number" 

Input 

Caller Input Field: CALLERS_INCOMING_NUMBER 
Max Number Of Digits: 11 
Checklist 

Case: "nnnr" 

Continue 
Case: "Not On List" 

Speak With Interrupt 

Phrase: "invalid entry" 
Rep romp t 
Case: "Initial Timeout" 
Speak With Interrupt 

Phrase: "too few digits" 
Rep romp t 
Case: "Too Few Digits" 
Speak With Interrupt 

Phrase: "too few digits" 
Reprompt 
Case: "No More Tries" 
Speak With Interrupt 

Phrase: "unable to complete call, please try again" 
Quit 

End Prompt & Collect 
#_ Write ERROR record 

35. Modify Table 

Table Name: ROUTE_ERROR Operation: Add 

Field: route_attempted_800 = CALLERS_INCOMING_NUMBER 
Field: route_attemted_dnis = ATTEMPTED_DNISJSFUMBER 
Field: route_originating__num = OR I G I NAT I NG_NUMB ER 

36. Read Table 

Table Name : ROUTE_APPL Search From Beginning 

Field: route_app_800_number = CALLERS_INCOMING_NUMBER 

37. Evaluate 

If $MATCH_FOUND > 0 

38. Set Field Value 

Field: HOLD_DNIS_NUMBER = route_appl_dnis_number 
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Field: HOLD_INCOMING_NUMBER = route_app_800_number 
Field: HOLD_AP PL I CAT I ON_NAME = route_appl_name 
Field: HOLD_DO_CLEAR_ANI = route_appl_do_clear_ani 
#_ Check for Multiple Incoming Numbers in table 

39. Read Table 

Table Name: ROUTE_APPL 

Field: route_app_800_number = CALLERS_INCOMING_NUMBER 

40. Evaluate 

If $ MATCH_FOUND > 0 

41. Set Field Value 

Field: NOT_SURE_OF_DNIS_FLAG = " Y" 
End Evaluate 

42. Goto FIX_ISDN_RECORD 
End Evaluate 

#_ Check for an abbreviated incoming 800 number 
4 3 . Evaluate 

If $CI_NO__DIGS_GOT = "7" 

#_ Add 1800 in front of 7 digit incoming number 

44 . External Function 

Function Name: concat 

Use Arguments: TRY_NEW_CALLERS_INC_NUM ONE_EIGHT_HUNDRED 
CALLERS_INCOMING_NUMBER 0 

Return Field: RTN_CODE 

45 . Read Table 

Table Name: ROUTE_APPL Search From Beginning 

Field: route_app_800_number = TRY_NEW_CALLERS_INC_NUM 

46. Evaluate 

If $ MATCH_FOXJND > 0 

47. Set Field Value 

Field: HOLD_DNIS_NUMBER = route_appl_dnis_number 
Field: HOLD_INCOMING_NUMBER = route_app_8 00_number 
Field: HOLD_AP PL I CAT I ON_NAME = route_appl_name 
Field: HOLD_DO_CLEAR_ANI = route_appl_do_clear_ani 
#_ Check for Multiple Incoming Numbers in table 
4 8 . Read Table 

Table Name: ROUTE_APPL 

Field: route_app_800_number = TRY_NEW_CALLERS_INC_NUM 

49. Evaluate 

If $MATCH_FOUND > 0 

50. Set Field Value 

Field: NOT_SURE_OF_DNIS_FLAG = "Y" 
End Evaluate 

51. Goto FIX_ISDN_RECORD 
End Evaluate 

End Evaluate 

#_ Check for an abbreviated incoming 888 number 

52 . Evaluate 

If $CI_NO_DIGS_GOT = "7" 

#_ Add 1888 in front of 7 digit incoming number 

53 . External Function 

Function Name: concat 

Use Arguments: TRY_NEW_CALLERS_INC_NUM 0NE_E I GHT_E I GHT_E I GHT 
CALLERS_INCOMING_NUMBER 0 

Return Field: RTN_CODE 

54 . Read Table 

Table Name: ROUTE_APPL Search From Beginning 

Field: route_app_800_number = TRY_NEW_CALLERS_INC_NUM 

55 . Evaluate 

If $MATCH_FOUND > 0 

56. Set Field Value 

Field: HOLD DNIS NUMBER = route appl dnis number 
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Field: HOLD_INCOMING_NUMBER = route_app_800_number 
Field: HOLD_AP P L I CAT I ON_NAME = route_appl_name 
Field: HOLD_DO_CLEAR_ANI = route_appl_do_clear_ani 
#_ Check for Multiple Incoming Numbers in table 

57 . Read Table 

Table Name: ROUTE_APPL 

Field: route_app_800_number = TRY_NEW_CALLERS_INC_NUM 

58. Evaluate 

If $MATCH_FOUND > 0 

59. Set Field Value 

Field: NOT_SURE_OF_DNIS_FLAG = "Y" 
End Evaluate 

60. Goto FIX_ISDN_RECORD 
End Evaluate 

End Evaluate 

#_ Check for an abbreviated incoming number (No 1) 

61 . Evaluate 

If $CI_NO_DIGS_GOT = "10" 

#_ Add 1 in front of 10 digit incoming number 

62 . External Function 

Function Name: concat 

Use Arguments: TRY_NEW_CALLERS_INC_NUM ONE CALLERS_INCOMING_NUMBER 
Return Field: RTN_C0DE 
63 . Read Table 

Table Name: ROUTE_APPL Search From Beginning 

Field: route_app_8 00_number = TRY_NEW_CALLERS_INC_NUM 

64 . Evaluate 

If $MATCH_FOUND > 0 

65. Set Field Value 

Field: HOLD_DNI S_NUMBER = route_appl_dnis_number 
Field: HOLD_INCOMING_NUMBER = route_app_8 00_number 
Field: HOLD_APPL I CAT ION_NAME = route_appl_name 
Field: HOLD_DO_CLEAR_ANI = route_appl_do_clear_ani 
#_ Check for Multiple Incoming Numbers in table 

66. Read Table 

Table Name: ROUTE_APPL 

Field: route_app_800_number = TRY_NEW_CALLERS_INC_NUM 

67. Evaluate 

If $ MAT CH_ FOUND > 0 

68. Set Field Value 

Field: NOT_SURE_OF_DNIS_FLAG = "Y" 
End Evaluate 

69. Goto FIX_ISDN_RECORD 
End Evaluate 

End Evaluate 

#_ Didn't find an application to call 

70. Announce 

Speak With Interrupt 

Field: CALLERS_INCOMING_NUMBER As Cmmf 
Phrase: "is not on our system" 

Phrase: "unable to complete call, please try again" 

71. Goto TERMINATE_CALL 

################################################### 
FIX_ISDN_RECORD : 

################################################### 



72 . External Function 

Function Name : substring 

Use Arguments: KEEP_FIRST15_ISDN_REC0RD 
Return Field: RTN CODE 
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73. Set Field Value 

Field: REBUILD_ISDN_RECORD = KEEP_FIRST15__ISDN_RECORD 

74 . External Function 

Function Name: length 
Use Arguments: HOLD_DNIS_NUMBER 
Return Field: DNI S_LENGTH 
#_ ( DNI S_LENGTH = 4 ) we account for 4 digit VDNs 

75. Evaluate 

If DN I S_LENGTH = 4 

76. External Function 

Function Name: concat 

Use Arguments : REBUI LD_I SDN_RECORD REBUILD_ISDN_RECORD " " 0 
Return Field: RTN_CODE 
End Evaluate 

77. External Function 

Function Name: concat 

Use Arguments: REBUI LD_ISDN__RECORD REBUI LD_ISDN_RECORD HOLD_DNIS_NUMBER 0 
Return Field: RTN_CODE 

78. Evaluate 

If DN I S_L ENGTH = 4 

79. External Function 

Function Name : concat 

Use Arguments: REBUI LD_ISDN_RE CORD REBUILD_ISDN_RECORD » " 0 
Return Field: RTN_CODE 
End Evaluate 

80. External Function 

Function Name: concat 

Use Arguments: REBUI LD_ISDN_RECORD REBUI LD_ISDN_RECORD HOLD_DNIS_NUMBER 0 
Return Field: RTN_CODE 

81. Set Field Value 

Field: ISDN_RECORD = REBUI LD_ISDN_RECORD 

82. Goto CALL_NEXT_SCRIPT 

################################################### 
CALL_NEXT_SCRIPT : 

################################################### 

#_ See if H0LD_AP PL I CAT I ON_NAME is just an alias 

83 . Read Table 

Table Name : R0UTE_AL IAS Search From Beginning 

Field: route_alias_name = HOLD_AP PL I CAT I ON_NAME 

84 . Evaluate 

If $ MAT CH_ F OUND > 0 

85. Set Field Value 

Field: HOLD_EXECUTE_NAME = route_alias_execute_pgm 

Else 

86. Set Field Value 

Field: HOLD_EXECUTE_NAME = HOLD_AP PL I CAT I ON_NAME 
End Evaluate 

#_ Clear the ISDN Record for the next call 

#_ if no subprograms to route call do get_ani 

87 . Evaluate 

If HOLD_DO_CLEAR_ANI = "Y" 

88. External Function 

Function Name: clear_ani 
Return Field: RTN_CODE 
End Evaluate 

#_ Check flag for multiple incoming number carrying 
different DNISs . 

89. Evaluate 

If NOT SURE OF DNIS FLAG = "Y" 
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90. Set Field Value 

Field: HOLD_AP PL I CAT I ON_NAME = »???« 
End Evaluate 

91. External Action: Execute 

Application_Name : HOLD_EXECUTE_NAME 
Write_Call_Data_Record : "yes " 
Argument__l : I SDN_RECORD 
Argument_2 : HOLD_AP P L I CAT I ON_NAME 
End External Action 

92 . Announce 

Speak With Interrupt 

Phrase: "unable to complete call, please try again" 

93. Goto TERM INATE__C ALL 

################################################### 
TERMINATE_CALL : 
abort_call : 

################################################### 



94 . Evaluate 

If NEWCALL_NEEDED = "yes" 

95. Evaluate 

If NEWCALL_SENT != "yes" 

96. External Function 

Function Name: vesp_newcall 

Use Arguments: VDUID "route_callA" $UNIX_TIME $CHANNEL_NUMBER 
Return Field: RTN__CODE 

97 . Evaluate 

If RTN_CODE = 0 

98. External Function 

Function Name: putvduid 
Use Arguments: VDUID 
Return Field: RTN_CODE 
End Evaluate 
End Evaluate 
End Evaluate 

99. Disconnect 

100. Quit 
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get_ani : 
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dbase(28, 200, ch.F TEMP , 40, ch.F TEMP, 0) 


22 




trace (imm. 44444 , ch. F TEMP) 


23 




strcpy(*ch.3, ch.F TEMP) 
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rts() 
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TAB 3: Alternative Solutions 

Alternative 1: Utilize Definity CONVERSE Vector Step 

Overview 

This alternative could be implemented with no CTI servers required. In our normal Definity Vector design, the calls are routed to a 
Conversant VRU by queuing to an ACD split (each Conversant is defined to a single split). The design of this method involved 
changing the vectors so that instead of queuing to a split, they could call the Conversant using the CONVERSE step. By design, 
CONVERSE allows the Vector to pass two pieces of data (ANI and DNIS) via DTMF to the Conversant. The route_call program 
could be modified to accept the DTMF tones and proceed with looking up the DNIS in a table and executing the correct customer 
application. In addition, because the CONVERSE vector function keeps the vector in control of the call throughout the entire life of 
the call, the Conversant customer application program would either have to give up control of the disposition of the call (e.g. it could 
not directly transfer the caller to an agent, but instead would have to pass that control back to the vector) or the route_call application 
would pass the receiving extension back to the vector and the vector would transfer the call to that extension directly rather than 
maintaining control. 

Pros 

This design required no CTI services outside of those provided by Lucent in the Definity and the Conversant. 

Cons 

Required a great deal of time to complete. Almost 4 to 5 seconds were wasted on every call passing DTMF and establishing control. 
Required that every existing vector be re-written and extensive training for Vector programmers. 
Only available for Lucent Definity PBX switches. 



Alternative 2; Utilize VESP VDU Information to Gather DNIS and ANI 

Overview 

The design of this alternative involved using the VESP functions as they are supplied "out-of-the-box" fromNabnasset. The route_call 
application (which is always assigned to every shared port), upon going off-hook, would issue a "newcall" method call to obtain this 
call's unique VDU ID, and then two "get_vdu" method calls to obtain the DNIS and ANI for this call. It could then perform a table 
lookup and start the correct application in the normal manner. 

Pros 

This design required the least amount of development because it uses off-the-shelf method calls. 

Cons 

Required a great deal of time to complete a total of three VESP method calls after the phone was already taken off hook (1 to 2 
seconds were measured in proto-typing). 

Increased Conversant-to-VESP traffic significantly for every call. 
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TAB 4: Original Request for Proposal to Nabnasset Corp. 

The following is a request we made to Nabnasset Corp. for a proposal to supply us with a solution to our Port Sharing needs. We were 
asking for a method within the existing VESP architecture that would allow ANI and DNIS information to be passed to the Conversant 
unsolicited. This, we believed, would save significant time over the alternative solutions we had already proposed. Ultimately, 
Nabnasset did not fulfill this request,. Instead, we came up with another solution (different from those documented above) based on 
face-to-face discussions with Nabnasset programmers regarding the VESP architecture. 

Before we arrived at our own solution, Nabnasset referred us to another software vendor (Gold Systems) whom they believed to be 
developing a similar solution. We requested a description of their solution and found it to be essentially equivalent to our Alternative 
2 above. 

Issues Regarding the Use of VESP/Conversant Interface for Port Sharing at ATI 



Executive Summary 

The Conversant systems at ATI utilize a call's ISDN information to dynamically assign applications to channels. We call this "Port 
Sharing" because any given Conversant port can be used by any client application to provide VRU service. This is much more 
efficient than hard-assigning client applications to individual ports and allows us to achieve very high port utilization. We would like 
to utilize VESP to gather the DNIS and ANI information prior to assigning the correct client application to a port, but there are 
performance obstacles to using VESP for this purpose. We would like to request a change to the VESP/Conversant interface that 
would make port sharing using VESP services possible. 

Current Environment 

Currently at ATI all 794 Conversant ports are shared by multiple applications. Based on the called DNIS, the correct application is 
dynamically assigned to the correct ACD extension that is wired to a Conversant port. This is done without connecting the 
Conversants to the PBXs with BRI links (because we have too many Conversant systems) and without using the CONVERSE vector 
step to pass the DNIS using DTMF (because it adds to much time to the call duration). Instead of those methods, we use a CTI 
solution outside of VESP that involves gateway systems which communicate with the switch using ASAI/BRI links and pass the 
incoming call information to the Conversants during call setup. 

The importance of the words "during call setup" can not be stressed enough. The DNIS and ANI information is collected by the 
Conversant (via the gateway) before the port even detects ringing. This speeds the call setup process. Since the information is being 
passed through the gateway in parallel with the PBX sending a ring signal to the Conversant port, virtually no time is added to the total 
call duration (thus saving toll charges). 

The information from the ASAI gateway is passed via TCP/IP sockets and is collected by a DIP on Conversant and stored in temporary 
memory. When the port detects ringing, a locally developed application called route_call, which is assigned to the port, requests the 
ASAI information from the DIP and uses a table lookup to start the correct application on that port. On our VESP-enabled ports, 
route_call also initializes the call with the VOX server by issuing the "newcall" method and obtains the VDU ID for that call. The 
ASAI information and VDU ID are passed to the intended application program as needed. 

Problems Utilizing VESP Environment 

An ideal VESP implementation at ATI would eliminate the ASAI gateway on VESP-enabled systems and use only the VESP services 
for application assignment. The ASAI gateway is redundant since the information it passes to the Conversant is a duplication of the 
mformation known by the VESP services. Unfortunately, the design of the VESP interface to Conversant requires that the Conversant 
initiate all information flow. All VDU data must be specifically requested by Conversant. That is, an event on Conversant generated 
by the caller (e.g. the ringing of the phone port) drives requests by Conversant of the VESP services. No event outside of the 
Conversant (e.g. an IncomingCall event detected by Telephony Server) causes any information to flow to the Conversant. 

Under the current VESP design, in order for us to eliminate the ASAI gateway from our system, the Conversant would have to wait for 
the port to detect ringing before initiating requests for DNIS and ANI information from the VDU. The Conversant would have to 
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generate at least three transactions with VESP: 1) the newcall transaction to obtain the VDU ID; 2) a getvdu transaction to obtain the 
DNIS; 3) another getvdu to obtain the ANI. (Note: the new version 5 VESP DIP that we just received allows for multiple pieces of 
data to be retrieved with one getvdu transaction, but we have not yet begun to use this feature). These transactions would add some 
amount of time to the call duration, perhaps a second or more, which when taken on a per call bases may not seem significant, but 
when multiplied by the 2.5 million Conversant calls we take each month becomes very significant. 

Request for a Solution 

When viewed in the most fundamental terms, what we are asking is that the Conversant be treated like any other VESP client. The 
screen-pop function works on an agent workstation because the necessary information is sent to the workstation unsolicited before the 
agent hears the zip-tone (or ringing). We are asking for a screen-pop-like methodology for Conversant. We don't wish to give up the 
current interface - it makes since for Conversant to drive most communications with the VESP servers because, by definition, the 
Conversant reacts to real-time events presented by the callers. We would like an addition to the current interface that somehow allows 
the VOX server to send information on to the Conversant, unsolicited, at the time of an IncomingCall event as detected by the 
Telephony server. At a minimum the information content should be DNIS, ANI, and ACD extension. Ideally, the information passed 
should be user definable. We could envision a use for additional information (e.g. caller's name, account number, account balance, 
etc.) to be passed before the call begins. The VRU might answer: "Thanks for calling XYZ Corp. Mr. Smith. When you last called 
you requested an account statement be mailed to you. How can we serve you today?" 
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TAB 5: Milestone Time Line 

| - Initial requirements for Port Sharing method developed and design studies began. 

- Some design solutions proposed and proto-typing and research of solution validity begins. None of the initial 
solutions met all requirements. 

| - Request for proposal submitted to Nabnasset. 
Nabnasset refers us to Gold Systems. 

Gold Systems proposal received and reviewed and determined to not fulfill requirements. 

| - CTI development team travels to Acton, MA and has face-to-face consultation/training meetings with Nabnasset 

developers. The architecture of the Scripter Server (which is typically used for Caller Qualification) was discussed in 
detail. The sections of the server which are user-customizable (customx) were described and examples were 
presented. During these discussions, a largely un-documented method within the Scripter customx code was 
discovered (Script.Qualifyl). 

| - Upon returning home and doing more research a new design was proposed using the Script.Qualifyl method and RPC 
fucntionality. 

All previous designs and this new design were weighed and the decision was made to proceed with the new design. 

- Code is written and the concept and functionality are proven. 
Testing of superiority over alternative methods is performed. 

- Solution is tested by separate Q/A team. 

- Coding and Testing are completed and an implementation plan is proposed and reviewed with Conversant Support team. 

- Solution is moved to limited production use and performance is tested under load conditions. 

- Performance is approved and full production implementation roll-out is begun. 
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Qualities That Make Our Port-Sharing Solution Unique 

1. Port Re-use 

Any VRU port in the call center can be used for any application. Beyond the initial database record 
that relates a DNIS to an application, there is no special set-up required for each project or each 800 
number to re-use a VRU port. 

2. Out-of-Band Communication 

Our system transfers the call information (i.e. ANI and DNIS) to the VRU system on a 
communications channel that is completely separate from the voice channel being used by the caller to 
talk to the VRU. This makes the port-sharing effort very efficient because the call data is 
communicated in parallel to the call being switched to the VRU and the VRU can know which 
application to start even before the phone "rings". Out-of-Band communication also simplifies the 
administration of the call flow - that is, the call flow designer does not have to take port-sharing into 
consideration when deciding to include a VRU in the design. 

3. Client/Server Architecture 

The VRU is simply one part of a larger system that encompasses many clients and servers (PBX, CTI 
Server, Administration Servers, etc.). Adding new VRU's or new CTI servers is routine and does not 
require any additional programming or infrastructure changes. 

4. Application Program Transparency 

VRU application "scripts" need not be aware of the port-share system. A script can be designed and 
tested without consideration being given to the port-sharing. Then, when implemented into 
production, the script will automatically work under the port-sharing system. If, however, the 
application wishes to make use of the call data (ANI and DNIS), that data can be procured from the 
port-sharing system. 

5. Data Cache 

The call data is communicated once to the VRU when the call is originally set up and is cached there 
for subsequent use by the port-sharing system or by the application scripts if desired. 

Modules of the design that are unique to our invention: 

1. Customization of the Script-Qualifyl method within the Scripter server. 

2. Creation of the CTIEar module to communicate, out-of-band, with the CTI server. 

3. Creation of the dip28_isdn program to collect and store the information passed from the CTI server. 

4. Creation of the routecall IVR script program to relate the DNIS information to a client application 
and then start that client application on the IVR port. 
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